⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 西京票据管理系统刚刚获得
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
             Close;
             SQL.Clear;
             SQL.Add('delete from libnumberls');
             SQL.Add('where numberid=:id and numbertype=:type and sxdm=:dm');
             parameters.ParamByName('id').Value:=dm.ADOCODE.fieldbyname('numberid').AsString;
             Parameters.ParamByName('type').Value:=dm.ADOCODE.fieldbyname('numbertype').AsString;
             Parameters.ParamByName('dm').Value:=dm.HDM;
             ExecSQL;
           end;
          dm.ADOCon1.CommitTrans;
        except
          dm.ADOCon1.RollbackTrans;
      end;
      dm.ADOCODE.Close;
      dm.ADOCODE.Open;
      dm.ADOTEMP.Close;
      dm.ADOTEMP.Open;
  end;

procedure Tfrmmain.N9Click(Sender: TObject);
begin
 SpeedButton7Click(Sender);
end;

procedure Tfrmmain.N11Click(Sender: TObject);
 begin

   N7Click(Sender);
 end;

procedure Tfrmmain.N6Click(Sender: TObject); 
begin
 if Application.MessageBox('确认要彻底删除此数据吗？','系统提示',MB_ICONQUESTION+MB_OKCANCEL)=IDOK then
  begin
   dm.ADOCon1.BeginTrans;
     try
       with dm.ADOTY do
          begin
            Close;
            SQL.Clear;
            SQL.Add('delete from libnumberls');
            SQL.Add('where numberid=:id and numbertype=:type  and libnumberplace=:place');
            Parameters.ParamByName('id').Value:=dm.ADOCODE.fieldbyname('numberid').AsString;
            Parameters.ParamByName('type').Value:=dm.ADOCODE.fieldbyname('numbertype').AsString;
            Parameters.ParamByName('place').Value:=DM.ADOCODE.fieldbyname('libnumberplace').AsString;
            ExecSQL;
          end;
      dm.ADOCon1.CommitTrans;
     except
      dm.ADOCon1.RollbackTrans;
     end;
     end;
     dm.ADOCODE.Close;
     dm.ADOCODE.Open;
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADOLSDJ.Close;
  dm.ADOhj.Close;
  Label6.Caption:='';
  Label7.Caption:='';
  Label8.Caption:='';
  Label2.Caption:='';
  dm.ADOCODE.Close;
  dm.ADOTEMP.Close;
 Panel3.Visible:=False;
end;

procedure Tfrmmain.N5Click(Sender: TObject);
begin
   Formsummoney:=TFormsummoney.Create(Self);
   Formsummoney.ShowModal;
   FreeAndNil(Formsummoney);
end;

procedure Tfrmmain.SpeedButton6Click(Sender: TObject);
  begin
  Formaddlist:=TFormaddlist.Create(self);
   if dm.HDM='01' then
     begin
       with dm.ADOTP do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select placename from ly_place');
           SQL.Add('where placename=''前台''');
           Prepared;
           Open;
         end;
         Formaddlist.Cdd.Text:=dm.ADOTP.Fields[0].AsString;
     end
     else
   if dm.HDM='02' then
     begin
       with dm.ADOTP do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select placename from ly_place');
           SQL.Add('where placename=''大堂吧''');
           Prepared;
           Open;
         end;
         Formaddlist.Cdd.Text:=dm.ADOTP.Fields[0].AsString;
     end
     else
  if dm.HDM='03' then
     begin
       with dm.ADOTP do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select placename from ly_place');
           SQL.Add('where placename=''西餐厅''');
           Prepared;
           Open;
         end;
         Formaddlist.Cdd.Text:=dm.ADOTP.Fields[0].AsString;
     end
     else
  if dm.HDM='04' then
     begin
       with dm.ADOTP do
         begin
           Close;
           SQL.Clear;
           SQL.Add('select placename from ly_place');
           SQL.Add('where placename=''康乐部''');
           Prepared;
           Open;
         end;
         Formaddlist.Cdd.Text:=dm.ADOTP.Fields[0].AsString;
     end;
   Formaddlist.ShowModal;
   FreeAndNil(Formaddlist);
  end;

procedure Tfrmmain.N13Click(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;
end;

procedure Tfrmmain.N14Click(Sender: TObject);
begin
  Panel3.Visible:=True;
  //设置开始时显示各吧台的内容
  if dm.HDM='01' then
  begin
  Label2.Caption:='前台';
  WITH DM.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''前台''');
     SQL.Add('order by numberid');
     Prepared;
     Open;
   end;

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

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

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''西餐厅''');
     SQL.Add('order by numberid');
     Prepared;
     Open;
   end;
  end
  else
  if dm.HDM='04' then
  begin
  Label2.Caption:='康乐部';
   with dm.ADOTEMP do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumber');
     SQL.Add('where libnumberplace=''康乐部''');
     SQL.Add('order by numberid');
     Prepared;
     Open;
   end;

   with dm.ADOCODE do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select * from libnumberls');
     SQL.Add('where libnumberplace=''康乐部''');
     SQL.Add('order by numberid');
     Prepared;
     Open;
   end;
  end;
 dxDBGrid2.FullExpand;
 dxDBGrid1.FullExpand;

 //设置已结，未结，挂帐，招待单据统计信息
        if DM.HDM='01'  then
          begin
            with DM.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''前台'' and zt=''已结''');
                Prepared;
                Open;
              end;
             Label6.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             dm.ADOTP.Close;

             with dm.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''前台'' and zt=''挂帐'' or zt=''招待''');
                Prepared;
                Open;
              end;
             Label7.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;

             with dm.ADOTP  do
               begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''前台'' and zt=''未结''');
                Prepared;
                Open;
               end;
             Label8.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;
          end
          else
        if DM.HDM='02'  then
          begin
            with DM.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''大堂吧'' and zt=''已结''');
                Prepared;
                Open;
              end;
             Label6.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             dm.ADOTP.Close;

             with dm.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''大堂吧'' and zt=''挂帐'' or zt=''招待''');
                Prepared;
                Open;
              end;
             Label7.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;

             with dm.ADOTP  do
               begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''大堂吧'' and zt=''未结''');
                Prepared;
                Open;
               end;
             Label8.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;
          end
          else
        if DM.HDM='03'  then
          begin
            with DM.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''西餐厅'' and zt=''已结''');
                Prepared;
                Open;
              end;
             Label6.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             dm.ADOTP.Close;

             with dm.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''西餐厅'' and zt=''挂帐'' or zt=''招待''');
                Prepared;
                Open;
              end;
             Label7.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;

             with dm.ADOTP  do
               begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''西餐厅'' and zt=''未结''');
                Prepared;
                Open;
               end;
             Label8.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;
          end
          else
        if DM.HDM='04'  then
          begin
            with DM.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''康乐部'' and zt=''已结''');
                Prepared;
                Open;
              end;
             Label6.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             dm.ADOTP.Close;

             with dm.ADOTP do
              begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''康乐部'' and zt=''挂帐'' or zt=''招待''');
                Prepared;
                Open;
              end;
             Label7.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;

             with dm.ADOTP  do
               begin
                Close;
                SQL.Clear;
                SQL.Add('select count(numberid) from libnumberls');
                SQL.Add('where libnumberplace=''康乐部'' and zt=''未结''');
                Prepared;
                Open;
               end;
             Label8.Caption:=IntToStr(dm.ADOTP.Fields[0].AsInteger);
             DM.ADOTP.Close;
          end;
   
end;

procedure Tfrmmain.N15Click(Sender: TObject);
begin
    Formserchnerveruse:=TFormserchnerveruse.Create(Self);
    Formserchnerveruse.ShowModal;
    FreeAndNil(Formserchnerveruse);
end;

procedure Tfrmmain.dxDBGrid2DblClick(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);

end;

procedure Tfrmmain.SpeedButton9Click(Sender: TObject);
begin
  N14Click(Sender);
end;

procedure Tfrmmain.DBGrid1DblClick(Sender: TObject);
begin
  WITH DM.ADOTYPEHJ  do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select numbertype,sum(jine) as jine from lsdj_tb');
      SQL.Add('where libnnumberplace=:place');
      SQL.Add('group by numbertype');
      SQL.Add('order by numbertype');
      Parameters.ParamByName('place').Value:=dm.ADOhj.fieldbyname('libnnumberplace').AsString;
      Prepared;
      Open;
    end;
    Label10.Caption:=DM.ADOhj.fieldbyname('libnnumberplace').AsString;
end;

procedure Tfrmmain.CheckBox1Click(Sender: TObject);
begin
  dm.ADOLSDJ.Open
end;

end.
12

⌨️ 快捷键说明

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