影像店管理系统正式版.rar

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit2.h" //需要获得当前登录用户的Id , 使用全局变量LoginId #include "Unit29.h" #include "Unit31.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFsale1 *Fsale1; //--------------------------------------------------------------------------- __fastcall TFsale1::TFsale1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TFsale1::Button2Click(TObject *Sender) { //结账 //首先检查信息完整性 if(Edit1->Text!=""||Edit5->Text!="") { if(Edit1->Text==""||Edit5->Text==""||Edit9->Text==""||Edit13->Text=="") { Application->MessageBoxA("请输入完整的商品信息！","系统提示",64); return; } } if(Edit2->Text!=""||Edit6->Text!="") { if(Edit2->Text==""||Edit6->Text==""||Edit10->Text==""||Edit14->Text=="") { Application->MessageBoxA("请输入完整的商品信息！","系统提示",64); return; } } if(Edit3->Text!=""||Edit7->Text!="") { if(Edit3->Text==""||Edit7->Text==""||Edit11->Text==""||Edit15->Text=="") { Application->MessageBoxA("请输入完整的商品信息！","系统提示",64); return; } } if(Edit4->Text!=""||Edit8->Text!="") { if(Edit4->Text==""||Edit8->Text==""||Edit12->Text==""||Edit16->Text=="") { Application->MessageBoxA("请输入完整的商品信息！","系统提示",64); return; } } //b = StrToInt(a); int q1,q2,q3,q4; //出售数量 q1 = StrToInt(Edit9->Text); q2 = StrToInt(Edit10->Text); q3 = StrToInt(Edit11->Text); q4 = StrToInt(Edit12->Text); //检查出售数量是否合法 if(q1<0||q2<0||q3<0||q4<0) //本if语句一般不会执行，因为相应文本框无法输入负号只允许输入数字和退格键 { Application->MessageBoxA("数量不能为负数！","系统提示",64); return; } if(Edit1->Text!=""&&Edit5->Text!=""&&Edit9->Text!=""&&Edit13->Text!="") { if(q1==0) { Application->MessageBoxA("出售数量不能为 0 ！","系统提示",64); return; } } if(Edit2->Text!=""&&Edit6->Text!=""&&Edit10->Text!=""&&Edit14->Text!="") { if(q2==0) { Application->MessageBoxA("出售数量不能为 0 ！","系统提示",64); return; } } if(Edit3->Text!=""&&Edit7->Text!=""&&Edit11->Text!=""&&Edit15->Text!="") { if(q3==0) { Application->MessageBoxA("出售数量不能为 0 ！","系统提示",64); return; } } if(Edit4->Text!=""&&Edit8->Text!=""&&Edit12->Text!=""&&Edit16->Text!="") { if(q4==0) { Application->MessageBoxA("出售数量不能为 0 ！","系统提示",64); return; } } /* AnsiString Test = "123"; long double d = StrToFloat( Test ); //double转AnsiString并四舍五入 long double d = 123.456121212; AnsiString str = FloatToStrF( d , ffFixed ,5 , 4 ); //说明FloatTostrF里5代表从第几个数字的后一位开始四舍五入,4代表取4位小数。 //执行后得到str是123.4600。 */ //开始写入销售记录表！！ AnsiString sql,barcode,shopid,RackQ,message,message1; int rq=0,temp=0;//RackQ架存数量 sql="select 商店编号 from 店员信息 where 店员编号 = "+LoginId; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); ADOQuery1->Open(); shopid=ADOQuery1->FieldByName("商店编号")->AsString; //获得当前登录店员所在商店编号 if(Edit1->Text!=""&&Edit5->Text!=""&&Edit9->Text!=""&&Edit13->Text!="") { barcode=Edit1->Text; //先判断该商品架存数量是否足够 sql="select 架存数量 from 架存商品信息 where 条形码 = "+barcode; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); //ADOQuery1->ExecSQL(); ADOQuery1->Open(); RackQ=ADOQuery1->FieldByName("架存数量")->AsString; rq=StrToInt(RackQ);//架存数量 string 转 int temp=rq-q1; if(temp>0||temp==0) {//该商品架存量大于或等于要出售的数量 sql="insert into 销售记录(条形码,商店编号,店员编号,销售数量) values('"+barcode; sql=sql+"','"+shopid; //商店编号 sql=sql+"','"+LoginId; //店员编号 sql=sql+"','"+q1; //出售数量 sql=sql+"')"; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); ADOQuery1->ExecSQL(); } else { //该商品架存量为 0 if(rq == 0 || rq < 0) { Application->MessageBoxA("对不起，第一件商品已经售完！","系统提示",64); Edit1->Text=""; Edit5->Text=""; Edit9->Text=0; Edit13->Text=0; goto flag01; } //如果该商品还有架存但存量不足，询问是否购买全部剩余商品 if(rq>0&&rq<q1) { Edit9->Text = rq; if(Application->MessageBoxA("第一件商品架存不足，是否将剩余该商品出售？","系统提示",MB_YESNO)==IDYES) { sql="insert into 销售记录(条形码,商店编号,店员编号,销售数量) values('"+barcode; sql=sql+"','"+shopid; //商店编号 sql=sql+"','"+LoginId; //店员编号 sql=sql+"','"+rq; //出售剩余架存的全部该商品 sql=sql+"')"; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); ADOQuery1->ExecSQL(); } else { Edit1->Text=""; Edit5->Text=""; Edit9->Text=0; Edit13->Text=0; } } } } flag01: if(Edit2->Text!=""&&Edit6->Text!=""&&Edit10->Text!=""&&Edit14->Text!="") { barcode=Edit2->Text; //先判断架存数量是否足够 sql="select 架存数量 from 架存商品信息 where 条形码 = "+barcode; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); //ADOQuery1->ExecSQL(); ADOQuery1->Open(); RackQ=ADOQuery1->FieldByName("架存数量")->AsString; rq=StrToInt(RackQ);//架存数量 string 转 int temp=rq-q1; if(temp>0||temp==0) {//该商品架存充足，可以出售 sql="insert into 销售记录(条形码,商店编号,店员编号,销售数量) values('"+barcode; sql=sql+"','"+shopid; //商店编号 sql=sql+"','"+LoginId; //店员编号 sql=sql+"','"+q1; //出售数量 sql=sql+"')"; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(sql); ADOQuery1->ExecSQL(); } else { //该商品架存量为 0 if(rq == 0 || rq < 0) { Application->MessageBoxA("对不起，第二件商品已经售完！","系统提示",64); Edit2->Text=""; Edit6->Text=""; Edit10->Text=0; Edit14->Text=0; goto flag02; } //如果该商品还有架存但存量不足，询问是否购买全部剩余商品 if(rq>0&&rq<q1) { Edit10->Text = rq; if(Application->MessageBoxA("第二件商品架存不足，是否将剩余该商品出售？","系统提示",MB_YESNO)==IDYES) { sql="insert into 销售记录(条形码,商店编号,店员编号,销售数量) values('"+barcode; sql=sql+"','"+shopid; //商店编号 sql=sql+"','"+LoginId; //店员编�