main.pas.bak

delphi+sql server 我是delphi的初学者

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, ToolWin, ComCtrls, Menus, dxExEdtr, dxTL,
  dxDBCtrl, dxDBGrid, DB, dxCntner, ImgList, StdCtrls;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ImageList1: TImageList;
    DSwsq: TDataSource;
    DSyyq: TDataSource;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridColumn;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    dxDBGrid2Column4: TdxDBGridColumn;
    dxDBGrid2Column5: TdxDBGridColumn;
    dxDBGrid2Column6: TdxDBGridColumn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    dxDBGrid2Column7: TdxDBGridColumn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    PMHX: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    TabSheet2: TTabSheet;
    dxDBGrid3: TdxDBGrid;
    DSlsdnju: TDataSource;
    dxDBGrid3Column1: TdxDBGridColumn;
    dxDBGrid3Column2: TdxDBGridColumn;
    dxDBGrid3Column3: TdxDBGridColumn;
    dxDBGrid3Column4: TdxDBGridColumn;
    dxDBGrid3Column5: TdxDBGridColumn;
    dxDBGrid3Column6: TdxDBGridColumn;
    dxDBGrid3Column7: TdxDBGridColumn;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  // procedure SpeedButton6Click(Sender: TObject);
//    procedure N6Click(Sender: TObject);
    procedure dxDBGrid2CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation
uses UDM,addperson,changeperson,ztchoose,allmenuadd,PLACEBB,me,NOTUSE,XZSJ,changedj;
{$R *.dfm}

procedure Tfrmmain.SpeedButton1Click(Sender: TObject);
begin
 MessageBox(Handle,'确认要退出系统吗？','系统提示',MB_OKCANCEL+MB_OK);
  close;
 end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
 with dm.ADOLSDJ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from lsdj_tb');
    SQL.add('where sxdm=:dm');
    Parameters.ParamByName('dm').Value:=dm.HDM;
    Open;
  end;
    dm.ADOLSDJ.Open;
 //设置开始时显示各吧台的内容
  if dm.HDM='01' then
  begin
  TabSheet1.Caption:='前台';
  TabSheet5.Caption:='前台';
  WITH DM.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''前台''');
     Prepared;
     Open;
   end;

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''前台''');
     Prepared;
     Open;
   end;
  end
  else
  if DM.HDM='02' then
  begin
   TabSheet1.Caption:='大堂吧';
   TabSheet5.Caption:='大堂吧';
   with dm.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''大堂吧''');
     Prepared;
     Open;
   end;

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''大堂吧''');
     Prepared;
     Open;
   end;
  end
  else
  if dm.HDM='03' then
  begin
  TabSheet1.Caption:='西餐厅';
  TabSheet5.Caption:='西餐厅';
   with dm.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''西餐厅''');
     Prepared;
     Open;
   end;

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''西餐厅''');
     Prepared;
     Open;
   end;


  end
  else
  if dm.HDM='04' then
  begin
   TabSheet1.Caption:='康乐部';
   TabSheet5.Caption:='康乐部';
   with dm.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''康乐部''');
     Prepared;
     Open;
   end;

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''康乐部''');
     Prepared;
     Open;
   end;
  end;
  DM.hrq:=StrToDateTime(formatdatetime('yyyy-mm-dd',Now));
  StatusBar2.Panels[0].Text:=DateTimeToStr(dm.hrq);
  StatusBar1.Panels[0].Text:='在历史单据中可以查询历史的单据';
  PageControl2.TabIndex:=0;

end;

procedure Tfrmmain.N2Click(Sender: TObject);
begin
 DM.ADOLOGIN.Append;
 frmaddperson:=Tfrmaddperson.Create(SELF);
 frmaddperson.ShowModal;
 FreeAndNil(frmaddperson);
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
  if DM.ADOLOGIN.RecordCount>0 then
  begin
   frmchangeperson:=Tfrmchangeperson.Create(Self);
    with frmchangeperson do
    begin
      DBEdit1.Text:=dm.ADOLOGIN.fieldbyname('userid').AsString;
      DBEdit2.Text:=dm.ADOLOGIN.fieldbyname('username').AsString;
      DBEdit3.Text:=dm.ADOLOGIN.fieldbyname('userpsd').AsString;
    end;
   frmchangeperson.ShowModal;
   FreeAndNil(frmchangeperson);
  end;
end;

procedure Tfrmmain.dxDBGrid1DblClick(Sender: TObject);
begin
 frmztchoose:=Tfrmztchoose.Create(Self);
  with frmztchoose do
  begin
    Label1.Caption:=dm.ADOTEMP.fieldbyname('numberid').AsString;
    Label7.Caption:=dm.ADOTEMP.fieldbyname('numbertype').AsString;
    dm.Hdd:=DM.ADOTEMP.fieldbyname('libnumberplace').AsString;
  end;
  frmztchoose.ShowModal;
  FreeAndNil(frmztchoose);

  dxDBGrid1.FullExpand;
end;

procedure Tfrmmain.SpeedButton4Click(Sender: TObject);
begin
  frmallmenuadd:=Tfrmallmenuadd.Create(Self);
  frmallmenuadd.ShowModal;
  FreeAndNil(frmallmenuadd);
end;

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

procedure Tfrmmain.SpeedButton3Click(Sender: TObject);
begin
 FRMPLACEBBRQ:=TFRMPLACEBBRQ.Create(Self);
 FRMPLACEBBRQ.ShowModal;
 FreeAndNil(FRMPLACEBBRQ);
end;

procedure Tfrmmain.SpeedButton2Click(Sender: TObject);
begin
   frmme:=Tfrmme.Create(Self);
   frmme.ShowModal;
   FreeAndNil(frmme);
end;

{procedure Tfrmmain.SpeedButton6Click(Sender: TObject);
begin