mc_fydjgl.pas

异洲酒店管理系统

  Query2.SQL.Clear;
  Query2.SQL.Add('Select * From 进货历史单据表');
  Query2.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 单据编号 Like :C');
  Query2.SQL.Add('ORDER BY 单据编号 ASC');
  Query2.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query2.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query2.ParamByName('C').AsString:=Edit1.Text+'%';
  Query2.Open;//打开进货单据表
  Label8.Caption:=IntToStr(Query1.RecordCount)+'次';
  Query3.Close;
  Query3.SQL.Clear;
  Query3.SQL.Add('Select Sum(总计金额) From 进货历史单据表');
  Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 单据编号 Like :C');
  Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query3.ParamByName('C').AsString:=Edit1.Text+'%';
  Query3.Open;//打开进货单据表统计总计金额
  Label10.Caption:=Query3.Fields[0].AsString;
  Query3.Close;
  Query3.SQL.Clear;
  Query3.SQL.Add('Select Sum(总计金额) From 出货历史单据表');
  Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 单据编号 Like :C');
  Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
  Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
  Query3.ParamByName('C').AsString:=Edit1.Text+'%';
  Query3.Open;//打开出货单据表统计总计金额
  Label6.Caption:=Query3.Fields[0].AsString;
 end;
 end;
 End
 Else
 begin
 if ComboBox1.Items[ComboBox1.ItemIndex]='经手人' then
 begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select * From 出货历史单据表');
   Query1.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query1.SQL.Add('ORDER BY 单据编号 ASC');
   Query1.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query1.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query1.ParamByName('C').AsString:=Edit1.Text;
   Query1.Open;//打开出货单据表
   Label4.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Select * From 进货历史单据表');
   Query2.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query2.SQL.Add('ORDER BY 单据编号 ASC');
   Query2.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query2.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query2.ParamByName('C').AsString:=Edit1.Text;
   Query2.Open;//打开进货单据表
   Label8.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 进货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsString:=Edit1.Text;
   Query3.Open;//打开进货单据表统计总计金额
   Label10.Caption:=Query3.Fields[0].AsString;;
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 出货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsString:=Edit1.Text;
   Query3.Open;//打开出货单据表统计总计金额
   Label6.Caption:=Query3.Fields[0].AsString;
 End
 Else
 begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('Select * From 出货历史单据表');
   Query1.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query1.SQL.Add('ORDER BY 单据编号 ASC');
   Query1.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query1.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query1.ParamByName('C').AsInteger:=StrToInt(Edit1.Text);
   Query1.Open;//打开出货单据表
   Label4.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Select * From 进货历史单据表');
   Query2.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query2.SQL.Add('ORDER BY 单据编号 ASC');
   Query2.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query2.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query2.ParamByName('C').AsInteger:=StrToInt(Edit1.Text);
   Query2.Open;//打开进货单据表
   Label8.Caption:=IntToStr(Query1.RecordCount)+'次';
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 进货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsInteger:=StrToInT(Edit1.Text);
   Query3.Open;//打开进货单据表统计总计金额
   Label10.Caption:=Query3.Fields[0].AsString;
   Query3.Close;
   Query3.SQL.Clear;
   Query3.SQL.Add('Select Sum(总计金额) From 出货历史单据表');
   Query3.SQL.Add('Where 记录日期 >= :A and 记录日期 <= :B and 经受人 '+ComboBox2.Items[ComboBox2.ItemIndex]+' :C');
   Query3.ParamByName('A').AsDateTime:=DatetimePicker1.DateTime;
   Query3.ParamByName('B').AsDateTime:=DatetimePicker2.DateTime;
   Query3.ParamByName('C').AsInteger:=StrToInt(Edit1.Text);
   Query3.Open;//打开出货单据表统计总计金额
   Label6.Caption:=Query3.Fields[0].AsString;
 end;
 end;
 end;
 end;
 // 删除出货单据信息
 procedure TFYDJGL.BitBtn4Click(Sender: TObject);
 begin
 If Query1.Active = True Then
 If Query1.RecordCount <> 0 Then
 begin
  Query3.Close;
  Query3.SQL.Clear;
  Query3.SQL.Add('Delete 出货信息历史表');
  Query3.SQL.Add('Where 单据编号=:A');
  Query3.ParamByName('A').AsInteger:=Query2.FieldByName('单据编号').AsInteger;
  Query3.ExecSQL;
  Query1.Delete;
 end;
end;

procedure TFYDJGL.BitBtn6Click(Sender: TObject);
begin
 If Query2.Active = True Then
 If Query2.RecordCount <> 0 Then
 begin
 Query3.Close;
 Query3.SQL.Clear;
 Query3.SQL.Add('Delete 进货信息历史表');
 Query3.SQL.Add('Where 单据编号=:A');
 Query3.ParamByName('A').AsInteger:=Query2.FieldByName('单据编号').AsInteger;
 Query3.ExecSQL;
 Query2.Delete;
 end;
end;

//查看出货信息
procedure TFYDJGL.BitBtn3Click(Sender: TObject);
begin
 If Query1.Active = True Then
 If Query1.RecordCount <> 0 Then
 begin
 If Not Assigned(CHXXLLCK) Then
 begin
  CHXXLLCK:=TCHXXLLCK.Create(Self);
  CHXXLLCK.Query1.CLose;
  CHXXLLCK.Query1.SQL.Clear;
  CHXXLLCK.Query1.SQL.Add('Select * From 出货信息历史表');
  CHXXLLCK.Query1.SQL.Add('Where 单据编号 = :A');
  CHXXLLCK.Query1.ParamByName('A').AsInteger:=Query1.FieldByName('单据编号').AsInteger;
  CHXXLLCK.Query1.Open;
  CHXXLLCK.Label12.Caption:=Query1.FieldByName('总计金额').AsString;
  CHXXLLCK.ShowModal;
 end;
 end;
end;

procedure TFYDJGL.BitBtn5Click(Sender: TObject);
begin
 If Query2.Active = True Then
 If Query2.RecordCount <> 0 Then
 begin
 If Not Assigned(JHXXLLCK) Then
 begin
  JHXXLLCK:=TJHXXLLCK.Create(Self);
  JHXXLLCK.Query1.CLose;
  JHXXLLCK.Query1.SQL.Clear;
  JHXXLLCK.Query1.SQL.Add('Select * From 进货信息历史表');
  JHXXLLCK.Query1.SQL.Add('Where 单据编号 = :A');
  JHXXLLCK.Query1.ParamByName('A').AsInteger:=Query2.FieldByName('单据编号').AsInteger;
  JHXXLLCK.Query1.Open;
  JHXXLLCK.Label12.Caption:=Query1.FieldByName('总计金额').AsString;
  JHXXLLCK.ShowModal;
 end;
 end;
end;
procedure TFYDJGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FYDJGL.Release;
 FYDJGL:=Nil;
end;

procedure TFYDJGL.BitBtn2Click(Sender: TObject);
begin
 Close;
end;
end.