cw_main.pas

结于初学者来说这对数据库是一个很好的例子

unit cw_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    operator: TLabel;
    StatusBar1: TStatusBar;
    Button27: TButton;
    Button19: TButton;
    Button33: TButton;
    Q_selectAcc: TQuery;
    Q_din: TQuery;
    Query1: TQuery;
    Button34: TButton;
    Button35: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses cw_login, cw_kfspgl, cw_spin, cw_spinxy, cw_room, cw_dz, cw_dk, cw_kp,
  cw_manager, cw_snmanager, cw_fwy, cw_fwysn, cw_ysbb, cw_yfbb, cw_rkcx,
  cw_snin, cw_kc, cw_kcsn, cw_zd, cw_snzd, cw_tongji, cw_sntj, cw_snspgl,
  cw_kdskdx, cw_dzckdj, cw_spxfhz, cw_fwhshz, cw_mm, cw_zlzd, cw_kfbb;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form2.close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 form3.showmodal;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 form36.showmodal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 form4.showmodal;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  form5.showmodal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 form6.showmodal;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 form7.showmodal;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 form8.showmodal;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 form9.showmodal;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 form10.showmodal;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
 form11.showmodal;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 form12.showmodal;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
form13.showmodal;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
 form14.showmodal;
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
 form16.showmodal;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
 form18.showmodal;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
form20.showmodal;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
 form22.showmodal;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
 form23.showmodal;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
 form24.showmodal;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
  form26.showmodal;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
  form28.showmodal;
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
 form32.showmodal;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
 form37.showmodal;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
 form38.showmodal;
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
 form39.showmodal;
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
 form42.showmodal;
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
 form45.Label6.Caption:=form1.operator.Caption;
 form45.ShowModal;
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
 form46.showmodal;
end;

procedure TForm1.Button33Click(Sender: TObject);
  var vacc:integer;
begin
  if MessageDlg('请收银员停止结帐，确定吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
//清除冗余数据
   Q_selectacc.Close;;
   Q_selectacc.SQL.Clear;
   Q_selectacc.SQL.Add('select accountno from sn_dinlist group by accountno');
   Q_selectacc.Open;
   while not Q_selectacc.Eof do
     begin
       vacc:=Q_selectacc.fieldbyname('accountno').AsInteger;
//取出帐单号并与sn_account相比较，无则清除。
       Q_din.Active:=False;
       Q_din.Params.ParamByName('lsacc').Value:=vacc;
       Q_din.Active:=True;
       if Q_din.RecordCount=0 then
         begin
//           Query1.Active:=False;
           Query1.Params.ParamByName('aaa').Value:=vacc;
           Query1.ExecSQL;
//           Query1.Active:=True;
          end;
       Q_selectacc.Next;
     end;
  end;
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
  form52.showmodal;
end;

end.