📄 recived.pas

📁 delphi+sql server 我是delphi的初学者
💻 PAS
字号:
unit recived;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, DB, Buttons, ComCtrls,
  StdCtrls, ADODB, dxCntner, dxEditor, dxExEdtr, dxEdLib, dxTL, dxDBCtrl,
  dxDBGrid, Menus;

type
  Tfrmrecived = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    DSplace: TDataSource;
    DSlibnum: TDataSource;
    DSlibnumls: TDataSource;
    GroupBox2: TGroupBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridColumn;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    SpeedButton1: TSpeedButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    PM1: TPopupMenu;
    PM2: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    DSlibnumberlsdj: TDataSource;
    SpeedButton6: TSpeedButton;
    N6: TMenuItem;
    N10: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    Panel5: TPanel;
    dxDBGrid3: TdxDBGrid;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    CheckBox1: TCheckBox;
    procedure wwDBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxDBGrid2DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmrecived: Tfrmrecived;

implementation
uses UDM,backpage,deleterecived,meunztbcx,SUMHEJI,ZTBB,UnitXGCT,Unitlsdjsc,Unitgbtcx,Unitstructls,Unitlistmore,UnitBBDJLS,report;

{$R *.dfm}

procedure Tfrmrecived.wwDBGrid1DblClick(Sender: TObject);
begin
   if DM.ADOreport.FieldByName('placename').AsString='前台' then
     begin
       GroupBox2.Caption:='前台';
       with dm.ADOlibnumber do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select * from libnumber');
           SQL.Add('where libnumberplace=''前台''');
           Prepared;
           Open;
         end;
         DM.NAME:='前台';
         dm.hdm:='01';
     end
    else
   if DM.ADOreport.FieldByName('placename').AsString='大堂吧' then
     begin
       GroupBox2.Caption:='大堂吧';
       with dm.ADOlibnumber do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select * from libnumber');
           SQL.Add('where libnumberplace=''大堂吧''');
           Prepared;
           Open;
         end;
         DM.NAME:='大堂吧';
         dm.hdm:='02';

     end
     else
   if DM.ADOreport.FieldByName('placename').AsString='西餐厅' then
     begin
       GroupBox2.Caption:='西餐厅';
       with dm.ADOlibnumber do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select * from libnumber');
           SQL.Add('where libnumberplace=''西餐厅''');
           Prepared;
           Open;
         end;
         DM.NAME:='西餐厅';
         dm.hdm:='03';
     end
     else
   if DM.ADOreport.FieldByName('placename').AsString='康乐部' then
     begin
       GroupBox2.Caption:='康乐部';
       with dm.ADOlibnumber do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select * from libnumber');
           SQL.Add('where libnumberplace=''康乐部''');
           Prepared;
           Open;
         end;
      DM.NAME:='康乐部';
      dm.hdm:='04';
     end
     else
   if DM.ADOreport.FieldByName('placename').AsString='客房部' then
     begin
       GroupBox2.Caption:='客房部';
       with dm.ADOlibnumber do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select * from libnumber');
           SQL.Add('where libnumberplace=''客房部''');
           Prepared;
           Open;
         end;
      DM.NAME:='客房部';
      dm.hdm:='05';

     end;
     dxDBGrid2.FullExpand;
end;


procedure Tfrmrecived.FormShow(Sender: TObject);
var
i,v,f:Integer;
begin
  PageControl1.TabIndex:=0;
  with dm.qrytemp do
    begin
      close;
      SQL.Clear;
      SQL.Add('select count(numberid) from libnumberls');
      SQL.Add('where zt=''已结''');
      Prepared;
      Open;
    end;
    i:=dm.qrytemp.Fields[0].AsInteger;
  with dm.qrytemp do
    begin
      close;
      SQL.Clear;
      SQL.Add('select count(numberid) from libnumberls');
      SQL.Add('where zt=''作废''');
      Prepared;
      Open;
    end;
    v:=dm.qrytemp.Fields[0].AsInteger;
  with dm.qrytemp do
    begin
      close;
      SQL.Clear;
      SQL.Add('select count(numberid) from libnumberls');
      SQL.Add('where zt=''挂帐''');
      Prepared;
      Open;
    end;
    f:=dm.qrytemp.Fields[0].AsInteger;
  StatusBar1.Panels[1].Text:='       '+'已结'+inttostr(i)+'张'+'          '+'作废'+inttostr(v)+'张'+'            '+'挂帐'+inttostr(f)+'张';
  StatusBar1.Panels[0].Text:='当前操作员为:'+dm.hname;
  dm.ADOreport.Open;
  DM.ADOlibnumberls.Open;
  dxDBGrid1.FullExpand;
  dxDBGrid2.FullExpand;
  wwDBGrid1.Width:=Panel3.Width-WWDBGRID1.Width;
end;

procedure Tfrmrecived.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADOreport.Close;
  dm.ADOlibnumberls.Close;
  dm.ADOlibnumber.Close;
  DM.ADOLSDJ.Close;
end;

procedure Tfrmrecived.dxDBGrid2DblClick(Sender: TObject);
begin
   FRMZTBB:=TFRMZTBB.Create(Self);
   WITH FRMZTBB DO
    begin
      Edid.Text:=dm.ADOlibnumber.fieldbyname('numberid').AsString;
      Clx.Text:=dm.ADOlibnumber.fieldbyname('numbertype').AsString;
    end;
   FRMZTBB.ShowModal;
   FreeAndNil(FRMZTBB);
end;

procedure Tfrmrecived.SpeedButton1Click(Sender: TObject);
begin
    close;
end;

procedure Tfrmrecived.SpeedButton2Click(Sender: TObject);
begin
 if (dm.hdm<>'') and (DM.NAME<>'') then
   begin
    Formstructls:=TFormstructls.Create(Self);
    Formstructls.ShowModal;
    FreeAndNil(Formstructls);
   end
   else
   ShowMessage('请先选择左边中单据的地点所在地！');
end;

procedure Tfrmrecived.N2Click(Sender: TObject);
begin
  SpeedButton2Click(Sender);
end;

procedure Tfrmrecived.SpeedButton3Click(Sender: TObject);
begin
  Formlsdjsc:=TFormlsdjsc.Create(Self);
  Formlsdjsc.Caption:='未领用单据查询';
  Formlsdjsc.ShowModal;
  FreeAndNil(Formlsdjsc);
end;

procedure Tfrmrecived.SpeedButton4Click(Sender: TObject);
begin
   Formlsdjsc:=TFormlsdjsc.Create(Self);
   Formlsdjsc.Caption:='核销单据查询';
   Formlsdjsc.ShowModal;
   FreeAndNil(Formlsdjsc);
end;

procedure Tfrmrecived.SpeedButton5Click(Sender: TObject);
begin
  dm.ADOLSDJ.Close;
  dm.ADOLSDJ.Open;
  dm.ADOlibnumberls.Close;
  dm.ADOlibnumberls.Open;
   with dm.ADOlibnumberls do
     begin
       close;
       SQL.Clear;
       SQL.Add('select * from libnumberls');
       Prepared;
       Open;
     end;
end;

procedure Tfrmrecived.N7Click(Sender: TObject);
begin
  SpeedButton3Click(Sender);
end;

procedure Tfrmrecived.N12Click(Sender: TObject);
begin
  SpeedButton4Click(Sender);
end;

procedure Tfrmrecived.N11Click(Sender: TObject);
begin
   Formlistmore:=TFormlistmore.Create(Self);
   Formlistmore.Caption:='修改核销单据';
   with Formlistmore do
     begin
       Edid.Text:=dm.ADOlibnumberls.fieldbyname('numberid').AsString;
       Clx.Text:=dm.ADOlibnumberls.fieldbyname('numbertype').AsString;
       Czt.Text:=dm.ADOlibnumberls.fieldbyname('zt').AsString;
       dxCurrencyEdit1.Text:=IntToStr(DM.ADOlibnumberls.fieldbyname('jine').AsInteger);
       dxDateEdit1.Date:=DM.ADOlibnumberls.fieldbyname('rq').AsDateTime;
     end;

   Formlistmore.ShowModal;
   FreeAndNil(Formlistmore);
end;

procedure Tfrmrecived.N9Click(Sender: TObject);
begin
  dm.ADOlibnumber.Close;
  dm.ADOlibnumber.Open;
end;

procedure Tfrmrecived.N13Click(Sender: TObject);
begin
  DM.ADOlibnumberls.Close;
  DM.ADOlibnumberls.Open;
end;

procedure Tfrmrecived.N8Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除此单据吗？','系统提示',MB_ICONQUESTION+MB_OKCANCEL)=IDOK then
     begin
       try
         dm.con1.BeginTrans;
         with dm.qrytemp do
           begin
             Close;
             SQL.Clear;
             SQL.Add('delete from libnumber');
             SQL.Add('where numberid=:id and numbertype=:type');
             Parameters.ParamByName('id').Value:=dm.ADOlibnumber.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOlibnumber.fieldbyname('numbertype').AsString;
             ExecSQL;
           end;
           dm.con1.CommitTrans;
         except
         dm.con1.RollbackTrans;
       end;
     end;
     DM.ADOlibnumber.Close;
     DM.ADOlibnumber.Open;
end;

procedure Tfrmrecived.N14Click(Sender: TObject);
begin
    if Application.MessageBox('确实要删除此单据吗？','系统提示',MB_ICONQUESTION+MB_OKCANCEL)=IDOK then
     begin
       try
         dm.con1.BeginTrans;
         with dm.qrytemp do
           begin
             Close;
             SQL.Clear;
             SQL.Add('delete from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type');
             Parameters.ParamByName('id').Value:=dm.ADOlibnumberls.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOlibnumberls.fieldbyname('numbertype').AsString;
             ExecSQL;
           end;
           dm.con1.CommitTrans;
         except
         dm.con1.RollbackTrans;
       end;
     end;
   dm.ADOlibnumberls.Close;
   DM.ADOlibnumberls.Open;
end;

procedure Tfrmrecived.N15Click(Sender: TObject);
begin
     dm.Con1.BeginTrans;
      try
         with dm.qrytemp do          //把核销后的单据插入未核销的表中
           begin
             Close;
             SQL.Clear;
             SQL.Add('insert into libnumber');
             SQL.Add('(list,numberid,numbertype,hxbz,djdate,lypername,JINE,A,B,libnumberplace,zt,sxdm)');
             SQL.Add('select list,numberid,numbertype,hxbz,rq,lypername,JINE,A,B,libnumberplace,zt,sxdm from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type');
             parameters.ParamByName('id').Value:=dm.ADOlibnumberls.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOlibnumberls.fieldbyname('numbertype').AsString;
             ExecSQL;
           end;

          with dm.qrytemp do        //然后删除核销后的单据
           begin
             Close;
             SQL.Clear;
             SQL.Add('delete from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type');
             parameters.ParamByName('id').Value:=dm.ADOlibnumberls.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOlibnumberls.fieldbyname('numbertype').AsString;
             ExecSQL;
           end;
          dm.Con1.CommitTrans;
        except
          dm.Con1.RollbackTrans;
      end;
      dm.ADOlibnumber.Close;
      dm.ADOlibnumber.Open;
      dm.ADOlibnumberls.Close;
      dm.ADOlibnumberls.Open;

end;

procedure Tfrmrecived.N4Click(Sender: TObject);
begin
   SpeedButton3Click(Sender);   
end;

procedure Tfrmrecived.N5Click(Sender: TObject);
begin
  SpeedButton4Click(Sender);
end;

procedure Tfrmrecived.SpeedButton6Click(Sender: TObject);
begin
   FormBBDJLS:=TFormBBDJLS.Create(Self);
   FormBBDJLS.ShowModal;
   FreeAndNil(FormBBDJLS);
end;

procedure Tfrmrecived.N6Click(Sender: TObject);
begin
   FRMSUM:=TFRMSUM.Create(Self);
   FRMSUM.ShowModal;
   FreeAndNil(FRMSUM);
end;

procedure Tfrmrecived.N16Click(Sender: TObject);
begin
  SpeedButton6Click(Sender);
end;

procedure Tfrmrecived.N17Click(Sender: TObject);
begin
   SpeedButton5Click(Sender);
end;

procedure Tfrmrecived.N18Click(Sender: TObject);
begin
   N11Click(Sender);
end;

procedure Tfrmrecived.N19Click(Sender: TObject);
begin
   N6Click(Sender);
end;

procedure Tfrmrecived.N20Click(Sender: TObject);
begin
   close;
end;

procedure Tfrmrecived.N22Click(Sender: TObject);
begin
  frmreport:=Tfrmreport.Create(Self);
  frmreport.ShowModal;
  FreeAndNil(frmreport);
end;

procedure Tfrmrecived.CheckBox1Click(Sender: TObject);
begin
  DM.ADOLSDJ.Open;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -