uy_cd_cx.pas

阳光餐饮收银管理系统源码

unit uy_cd_cx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids,u_main, Tabs, Db, DBTables, dxExEdtr, dxDBTLCl, dxGrClms,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner, se_controls, KsSkinForms;

type
  Ty_cd_cx = class(TForm)
    TabSet1: TTabSet;
    dq_cdcx: TDataSource;
    q_cdcx: TQuery;
    q_cdcxcdbh: TStringField;
    q_cdcxth: TStringField;
    q_cdcxtht: TStringField;
    q_cdcxkrs: TIntegerField;
    q_cdcxfwyh: TStringField;
    q_cdcxycsj: TDateTimeField;
    q_cdcxjzsj: TDateTimeField;
    q_cdcxtm: TStringField;
    q_cdcxjzfs: TStringField;
    y_jzfs: TTable;
    y_jzfsJZFSH: TStringField;
    y_jzfsJzfs: TStringField;
    y_jzfsD_yn: TBooleanField;
    q_cdcxjzfs1: TStringField;
    q_cdcxzws: TIntegerField;
    q_cdcxzt1: TStringField;
    q_cdcxzt: TStringField;
    q_cdcxskth: TStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1cdbh: TdxDBGridMaskColumn;
    dxDBGrid1th: TdxDBGridMaskColumn;
    dxDBGrid1tm: TdxDBGridMaskColumn;
    dxDBGrid1tht: TdxDBGridMaskColumn;
    dxDBGrid1krs: TdxDBGridMaskColumn;
    dxDBGrid1fwyh: TdxDBGridMaskColumn;
    dxDBGrid1ycsj: TdxDBGridDateColumn;
    dxDBGrid1jzfs: TdxDBGridMaskColumn;
    dxDBGrid1jzfs1: TdxDBGridLookupColumn;
    dxDBGrid1jzsj: TdxDBGridDateColumn;
    dxDBGrid1zt: TdxDBGridMaskColumn;
    dxDBGrid1zt1: TdxDBGridMaskColumn;
    dxDBGrid1zws: TdxDBGridMaskColumn;
    dxDBGrid1skth: TdxDBGridMaskColumn;
    SeSkinForm1: TSeSkinForm;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure dxDBGrid1CustomDrawCell(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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_cd_cx: Ty_cd_cx;

implementation

{$R *.DFM}

procedure Ty_cd_cx.FormShow(Sender: TObject);
begin
 if not y_jzfs.Active then y_jzfs.Active:=true;
 TabSet1.TabIndex:=0;
 s_sql:='SELECT a.skth,a.cdbh,a.th,b.tm,c.tht,a.krs,c.zws,c.fwyh,a.ycsj,a.jzfs,a.jzsj,a.zt,d.zt as zt1 FROM cd a,t b,tai c,cd_zt d where (a.th=b.th) and (a.tht=c.tht) and (a.zt=d.bh)';
// s_sql:=s_sql+' and (skth='+quotedstr(s_skth)+')';
//SELECT cdbh,th,tm,tht,krs,zws,fwyh,ycsj,jzfs,jzsj,cd.zt,cd_zt.zt as zt1 FROM cd,t,tai,cd_zt where (cd.th=t.th) and (cd.tht=tai.tht) and (cd.zt=cd_zt.bh)
 with q_cdcx do
  begin
   DisableControls;
   sql.Clear;
   sql.add(s_sql);
   active:=false;
   active:=true;
   EnableControls;
  end;
end;

procedure Ty_cd_cx.DBGrid1DblClick(Sender: TObject);
begin
 if (q_cdcx.RecordCount=0) or  (q_cdcx.FieldByName('th').asstring='')  then
    esc_enter:=0
  else
    esc_enter:=1;
 close;
end;

procedure Ty_cd_cx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then
   begin
    esc_enter:=0;
    close;
   end;
end;

procedure Ty_cd_cx.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin
    if (q_cdcx.RecordCount=0) or  (q_cdcx.FieldByName('th').asstring='')  then
        esc_enter:=0
     else
      esc_enter:=1;
    close;
   end;
end;

procedure Ty_cd_cx.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  s_sql:='SELECT a.skth,a.cdbh,a.th,b.tm,c.tht,a.krs,c.zws,c.fwyh,a.ycsj,a.jzfs,a.jzsj,a.zt,d.zt as zt1 FROM cd a,t b,tai c,cd_zt d  where (a.th=b.th) and (a.tht=c.tht) and (a.zt=d.bh)';
  case newtab of
   0:s_sql:=s_sql+'';
   1:s_sql:=s_sql+'  and (a.zt='+''''+'1'+''''+')';
   2:s_sql:=s_sql+'  and (a.zt='+''''+'2'+''''+')';
   3:s_sql:=s_sql+'  and (a.zt='+''''+'3'+''''+')';
  end;
 with q_cdcx do
  begin
   DisableControls;
   sql.Clear;
   sql.add(s_sql);
   active:=false;
   active:=true;
   EnableControls;
  end;
end;

procedure Ty_cd_cx.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
   83:tabset1.tabindex:=0;
   71:tabset1.tabindex:=1;
   72:tabset1.tabindex:=2;
   74:tabset1.tabindex:=3;
  end;
end;

procedure Ty_cd_cx.dxDBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin    
    if (q_cdcx.RecordCount=0) or  (q_cdcx.FieldByName('th').asstring='')  then
        esc_enter:=0
     else
      esc_enter:=1;
    close;
   end;
end;

procedure Ty_cd_cx.dxDBGrid1CustomDrawCell(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);
begin
  if ANode.Index mod 2 = 0 then
    AColor := clInfoBk
  else
    AColor := clAqua;
  if aselected=true then
    AColor :=$D8A19A;
end;

end.