【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“MC_KTGL.PAS”一文,供大家参考学习!
unit MC_KTGL;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ToolWin, ComCtrls, ImgList, StdCtrls, Buttons, ExtCtrls, DBCGrids, Grids,
DBGrids, Mask, DBCtrls, Menus, DB, DBTables;
type
TKTGL = class(TForm)
ImageList1: TImageList;
Panel1: TPanel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
Label9: TLabel;
DBText9: TDBText;
Bevel1: TBevel;
Panel2: TPanel;
Panel3: TPanel;
DBGrid2: TDBGrid;
DBLookupComboBox1: TDBLookupComboBox;
Label10: TLabel;
Bevel2: TBevel;
Panel4: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Panel5: TPanel;
ListView1: TListView;
Panel6: TPanel;
ListView2: TListView;
Label1: TLabel;
Label11: TLabel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
Bevel3: TBevel;
Label16: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBGrid1: TDBGrid;
CheckBox1: TCheckBox;
DataSource1: TDataSource;
Query1: TQuery;
Query2: TQuery;
Button1: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListView2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
KTGL: TKTGL;
implementation
uses MC_TLCYGLXT, MC_DCFY_LR, MC_YGCX, MC_ZTGL_KT, MC_BTSZ_KT, MC_DCGL_DC;
{$R *.DFM}
function ADDListView:Boolean; //定义房台列表显示函数
begin
TLCYGLXT.KT_FJTHXXB.RefResh;
TLCYGLXT.KT_FJTHBMB.RefResh;
TLCYGLXT.KT_FJTHLXB.RefResh;
KTGL.Listview1.Items.Clear;
TLCYGLXT.KT_FJTHXXB.Filter:=Format('状态'+'='+'''%S''',['空闲']);
TLCYGLXT.KT_FJTHXXB.Filtered:=True;
While not TLCYGLXT.KT_FJTHXXB.Eof do
begin
KTGL.ListView1.Items.Add.Caption:=tlcyglxt.kt_fjthxxb.fieldbyname('房台名称').asstring;
TLCYGLXT.KT_FJTHXXB.Next;
end;
KTGL.Label1.Caption:='空闲总数:'+IntToStr(TLCYGLXT.KT_FJTHXXB.RecordCount);
KTGL.Listview2.Items.Clear;
TLCYGLXT.KT_FJTHXXB.Filter:=Format('状态'+'<>'+'''%S''',['空闲']); //'''状态'''+'<>'+'''空闲''';
TLCYGLXT.KT_FJTHXXB.Filtered:=True;
While not TLCYGLXT.KT_FJTHXXB.Eof do
begin
KTGL.ListView2.Items.Add.Caption:=TLCYGLXT.KT_FJTHXXB.FieldByName('房台名称').AsString;
TLCYGLXT.KT_FJTHXXB.Next;
end;
KTGL.Label11.Caption:='营业总数:'+IntToStr(TLCYGLXT.KT_FJTHXXB.RecordCount);
TLCYGLXT.KT_FJTHXXB.Filtered:=False;
end;
procedure TKTGL.FormShow(Sender: TObject); //窗体初始化
begin
AddListview;
DBLookupComboBox1.KeyValue:=TLCYGLXT.KT_FJTHBMB.FieldByName('部门名称').AsString;
end;
procedure TKTGL.ListView2Click(Sender: TObject); //选择房台
var list:TListItem;
ListString:String;
begin
List:=TlistView(Sender).Selected;
If List <> nil Then
begin
ListString:=List.Caption;
If Length(ListString) <> 0 Then
if TLCYGLXT.KT_FJTHXXB.Locate('房台名称',ListString,[loPartialKey]) then
begin
Query1.Close;
query1.sql.clear;
query1.sql.add('select 编号,名称,类型,单位,数量,价格,合计,状态,服务员 from 点菜临时表');
query1.sql.add('where 房间台号=:a and 是否结单=:b');
Query1.Params[0].AsInteger:=TLCYGLXT.KT_FJTHXXB.FieldByName('编号').AsInteger;
Query1.Params[1].AsString:='否';
Query1.Open;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select Sum(合计) From 点菜临时表');
Query2.SQL.Add('Where 房间台号=:A and 是否结单=:B');
Query2.Params[0].AsInteger:=TLCYGLXT.KT_FJTHXXB.FieldByName('编号').AsInteger;
Query2.Params[1].AsString:='否';
Query2.Open;
If Query1.Recor