📄 mainmenu.~pas

📁 结于初学者来说这对数据库是一个很好的例子
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit mainmenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ToolWin, ComCtrls, Buttons, Grids, DB, DBTables,
  ImgList, DBGrids,shellapi;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    CoolBar1: TCoolBar;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton11: TSpeedButton;
    LV_HandNo: TListView;
    Q_HandNo: TQuery;
    IL_HandNo: TImageList;
    Q_Lvselect: TQuery;
    Q_folio: TQuery;
    Q_selectHN: TQuery;
    TV_folio: TTreeView;
    DB_DinList: TDBGrid;
    Q_DinList: TQuery;
    DS_DinList: TDataSource;
    T_Lshnew: TTable;
    Q_FolioNew: TQuery;
    T_SnAccountNew: TTable;
    Q_jiezhang: TQuery;
    Q_ydundo: TQuery;
    Q_Over: TQuery;
    StatusBar1: TStatusBar;
    N22: TMenuItem;
    N28: TMenuItem;
    sph: TEdit;
    Label1: TLabel;
    Q_sph: TQuery;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    Label2: TLabel;
    card: TEdit;
    See_k: TQuery;
//    procedure Button1Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TV_folioClick(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure DB_DinListCellClick(Column: TColumn);
    procedure SpeedButton4Click(Sender: TObject);
    procedure LV_HandNoClick(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure sphKeyPress(Sender: TObject; var Key: Char);
    procedure cardKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ResetMain;
  end;

var
  Form2: TForm2;

implementation

uses main, splb, xmgl, xm_in, See_snkc, See_snrk, sn_new, Sn_xfdj, xm_qx,
  jiezhang, See_zdf, see_Hiszd, Date_report, TJ_report, manager_waiter,
  manager, aboutme, changepwd, guibin, see_qm;

{$R *.dfm}


{
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.close;
form2.close;
form2.free;
end;
}
procedure TForm2.N27Click(Sender: TObject);
begin
    if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
    Abort;
   form1.Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
    Abort;
   form1.Close;
end;

procedure TForm2.FormShow(Sender: TObject);
begin

 ResetMain;
end;
procedure TForm2.TV_folioClick(Sender: TObject);
  var
    i:integer;
begin
   SpeedButton1.Enabled:=true;
   SpeedButton2.Enabled:=False;
   SpeedButton3.Enabled:=false;
   SpeedButton4.Enabled:=False;
   SpeedButton5.Enabled:=false;
   N2.Enabled:=true;
   N3.Enabled:=false;
   N4.Enabled:=true;
   N5.Enabled:=false;
   N6.Enabled:=false;
//   label2.Caption:=tv_folio.Selected.Text; //测试
//重置lv_handno图形
   for i:=0 to LV_HandNo.Items.Count-1 do
     begin
      with lv_handno do
       begin
        lv_handno.Items[i].ImageIndex:=0;
       end;
     end;
//改变选种的想关联图形
    Q_selectHN.SQL.Clear;
    Q_selectHN.SQL.Add('select * from SnFolio where cstr(Folio)='''+tv_folio.Selected.Text+'''');
    Q_selectHN.Open;
    while not Q_selectHN.Eof do
    begin
      for i:=0 to Lv_HandNo.Items.Count-1 do
        begin
           if Q_selectHN.FieldByName('handno').AsString=lv_handno.Items[i].Caption then
              begin
               lv_handno.Items[i].ImageIndex:=1;
              end;
        end;
      Q_selectHN.Next;
    end;
end;
procedure TForm2.N19Click(Sender: TObject);
begin
  form4.show;
end;

procedure TForm2.N20Click(Sender: TObject);
begin
 form5.show;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
  form6.ShowModal;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
 form7.showModal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
 form9.ShowModal;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
 form11.ShowModal;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
 var Roo:string;
begin
  Roo:=lv_handno.Selected.Caption;
  Form12.Label11.Caption:=tv_folio.Selected.Text;
  Form12.XF_RoomName.Caption:=Roo;
  form12.Q_splb.Active:=false;
  Form12.Q_splb.SQL.Clear;
  Form12.Q_splb.SQL.Add('select * from Sn_DinList where  handNo='''+Roo+''' and cstr(accountno)='''+tv_folio.Selected.Text+'''');
  Form12.q_splb.Open;
  Form12.Q_splb.Active:=True;
  form12.ShowModal;
end;
procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
 ResetMain;
end;

procedure TForm2.DB_DinListCellClick(Column: TColumn);
begin
  if DB_DinList.SelectedRows.Count>0 then
     begin
   SpeedButton1.Enabled:=true;
   SpeedButton2.Enabled:=False;
   SpeedButton3.Enabled:=false;
   SpeedButton4.Enabled:=false;
   SpeedButton5.Enabled:=false;
   N2.Enabled:=true;
   N3.Enabled:=false;
   N4.Enabled:=false;
   N5.Enabled:=false;
   N6.Enabled:=false;
    end;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
     Q_DinList.Open;
     with db_DinList.DataSource.DataSet do
     begin
     GotoBookmark(pointer(db_DinList.SelectedRows[0]));
     form13.label6.Caption:=fields[4].asstring;
     form13.qxsl.text:=fields[7].asstring;
     form13.Label8.Caption:=fields[7].AsString;
     form13.Label5.Caption:=Fields[3].asstring;
     form13.label12.caption:=tv_folio.Selected.Text;
     form13.Label10.Caption:=lv_handno.ItemFocused.Caption;
     end;
  Form13.ShowModal;

end;
procedure tform2.ResetMain;
  var
     treenode1:Ttreenode;
     listitem:Tlistitem;
begin
//   sph.Clear;
   SpeedButton1.Enabled:=true;
   SpeedButton2.Enabled:=False;
   SpeedButton3.Enabled:=false;
   SpeedButton4.Enabled:=false;
   SpeedButton5.Enabled:=false;
   N2.Enabled:=true;
   N3.Enabled:=false;
   N4.Enabled:=true;
   N5.Enabled:=false;
   N6.Enabled:=false;
//帐单号列表
   tv_folio.Items.Clear;
    Q_folio.Active:=false;
    Q_folio.Active:=true;
    treenode1:=tv_folio.Items.Add(nil,Q_folio.fieldbyName('folio').AsString);
    form2.TV_folio.SetFocus;
    Q_folio.Next;
    while not Q_folio.Eof do
    begin
      treenode1:=tv_folio.Items.Add(treenode1,Q_folio.fieldbyName('folio').AsString);
      Q_folio.Next;
    end;//结束
//手牌号列表
  lv_handNo.Clear;
  Q_HandNo.Active:=false;
  Q_HandNo.Active:=true;
  while not Q_HandNo.Eof do
  begin
    with lv_HandNo do
      begin
       SmallImages:=IL_HandNo;
       LargeImages:=IL_HandNo;
       listitem:=items.add;
       listitem.Caption:=trim(Q_HandNo.fieldByName('handno').AsString);
       listitem.ImageIndex:=0;
      end;
   Q_HandNo.Next;
  end;
end;

procedure TForm2.LV_HandNoClick(Sender: TObject);
 var vfolio:string;
     i,j:integer;
begin
//允许增加项目
   if lv_handno.ItemFocused.Selected then
   begin
   SpeedButton1.Enabled:=true;
   SpeedButton2.Enabled:=true;
   SpeedButton3.Enabled:=true;
   SpeedButton4.Enabled:=false;
   N2.Enabled:=true;
   N3.Enabled:=true;
   N4.Enabled:=true;
   N5.Enabled:=false;
   N6.Enabled:=true;
    for i:=0 to LV_HandNo.Items.Count-1 do
     begin
      with lv_handno do
       begin
        lv_handno.Items[i].ImageIndex:=0;
       end;
     end;
    Q_selectHn.Active:=false;
    Q_selectHN.Close;
    Q_selectHN.SQL.Clear;
    Q_selectHN.SQL.Add('select * from snfolio where handno='''+lv_handno.ItemFocused.Caption+'''');
    Q_selectHN.Open;
    vfolio:=IntToStr(Q_selectHN.FieldByName('folio').Asinteger);
    Q_selectHn.Close;
//选种帐单号列表中相关的单号

    for i:=0 to  tv_folio.Items.Count-1 do
    begin
      if tv_folio.Items[i].Text=vfolio then
       begin
         tv_folio.Items[i].Selected:=true;
       end;
    end;
        Q_selectHN.SQL.Clear;
    Q_selectHN.SQL.Add('select * from snfolio where Folio=cdbl('''+tv_folio.Selected.Text+''')');
    Q_selectHN.Open;
    while not Q_selectHN.Eof do
    begin
      for i:=0 to Lv_HandNo.Items.Count-1 do
        begin
           if Q_selectHN.FieldByName('handno').AsString=lv_handno.Items[i].Caption then
              begin
               lv_handno.Items[i].ImageIndex:=1;
              end;
        end;
      Q_selectHN.Next;
    end;
    Q_selectHn.Active:=false;
    Q_selectHn.SQL.Clear;

    //读出该手牌号对应的消费

   Q_Dinlist.Active:=false;
   Q_Dinlist.SQL.Clear;
   Q_DinList.SQL.Add('select * from Sn_DinList where cstr(accountno)='''+tv_folio.Selected.Text+''' and HandNo='''+lv_handno.ItemFocused.Caption+'''');
   Q_Dinlist.Active:=true;
//   label2.Caption:=tv_folio.Selected.Text; //测试
//   label3.Caption:=lv_handno.Selected.Caption;
      j:=0;
   for i:=0 to lv_handno.Items.Count-1 do
   begin
     with lv_handno do
       begin
        if lv_handno.Items[i].ImageIndex=1 then
        j:=j+1;
       end;
   end;
12 下一页
💿 文件大小 5774 K
👤 上传用户 zyhunicom
📂 所属分类 *行业应用
🏷️ 相关标签

#初学者 #数据库
⌨️ 快捷键说明

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