scjszunit.pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit SCJSZUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrlsEh, Buttons,DB, ImgList, TFlatButtonUnit,
  ExtCtrls, TFlatPanelUnit, Tabenter, Grids, DBGridEh, ComCtrls, ToolWin;

type
  TSCJ_SZ = class(TForm)
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    tbbtnNewBill: TToolButton;
    tbbtnDeleteBill: TToolButton;
    tbbtnCommit: TToolButton;
    tbbtnRollback: TToolButton;
    ToolButton11: TToolButton;
    tbbtnPrior: TToolButton;
    ToolButton4: TToolButton;
    tbbtnNext: TToolButton;
    tbbtnLast: TToolButton;
    ToolButton5: TToolButton;
    tbbtnFirst: TToolButton;
    ToolButton23: TToolButton;
    tbbtnSearch: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGridEh1: TDBGridEh;
    PageControl2: TPageControl;
    TabSheet2: TTabSheet;
    kEnterAsTab1: TkEnterAsTab;
    FlatPanel1: TFlatPanel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    ilSmall: TImageList;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ToolButton1: TToolButton;
    Label7: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure tbbtnSearchClick(Sender: TObject);
    procedure tbbtnNewBillClick(Sender: TObject);
    procedure tbbtnDeleteBillClick(Sender: TObject);
    procedure tbbtnCommitClick(Sender: TObject);
    procedure tbbtnRollbackClick(Sender: TObject);
    procedure tbbtnPriorClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure tbbtnNextClick(Sender: TObject);
    procedure tbbtnLastClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure tbbtnFirstClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  function BS(M:integer):integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SCJ_SZ: TSCJ_SZ;

implementation

uses DMUnit, MainUnit, U_CheckRights;

{$R *.dfm}

procedure TSCJ_SZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TSCJ_SZ.FormDestroy(Sender: TObject);
begin
SCJ_SZ:=nil;
end;

procedure TSCJ_SZ.FormCreate(Sender: TObject);
begin
with DM.SCJSZQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM SCJSZ_ITEM');
  Open;
end;
end;

procedure TSCJ_SZ.BitBtn1Click(Sender: TObject);
begin
  if DM.SCJSZQry.State in [DSBROWSE] then
     DM.SCJSZQry.Edit;
end;

procedure TSCJ_SZ.tbbtnSearchClick(Sender: TObject);
begin
Close;
end;

procedure TSCJ_SZ.tbbtnNewBillClick(Sender: TObject);
begin
DM.SCJSZQry.First;
end;

procedure TSCJ_SZ.tbbtnDeleteBillClick(Sender: TObject);
begin
DM.SCJSZQry.Prior;
end;

procedure TSCJ_SZ.tbbtnCommitClick(Sender: TObject);
begin
DM.SCJSZQry.Next;
end;

procedure TSCJ_SZ.tbbtnRollbackClick(Sender: TObject);
begin
DM.SCJSZQry.Last;
end;

function TSCJ_SZ.BS(M: integer): integer;
begin
  if M=0 then
  begin
    DBEditEh2.ReadOnly:=false;
    DBEditEh3.ReadOnly:=false;
    DBEditEh4.ReadOnly:=false;
  end;
  if M=1 then
  begin
    DBEditEh2.ReadOnly:=True;
    DBEditEh3.ReadOnly:=True;
    DBEditEh4.ReadOnly:=True;
  end;
end;

procedure TSCJ_SZ.tbbtnPriorClick(Sender: TObject);
begin
  if DM.SCJSZQry.State in [DSBROWSE] Then
    DM.SCJSZQry.Append;
    BS(0);
    DBEditEh2.SetFocus;
end;

procedure TSCJ_SZ.ToolButton4Click(Sender: TObject);
begin
  if DM.SCJSZQry.RecordCount<=0 then Exit;
  if DM.SCJSZQry.State in [DSBROWSE] Then
    DM.SCJSZQry.Edit;
    BS(0);
end;

procedure TSCJ_SZ.tbbtnNextClick(Sender: TObject);
begin
  if DM.SCJSZQry.RecordCount<=0 then Exit;
  if Application.MessageBox('是否确认删除该收银机设置信息？', '提示',
     MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES then
     DM.SCJSZQry.Delete;
end;

procedure TSCJ_SZ.tbbtnLastClick(Sender: TObject);
begin
  if  (Trim(DBEditEh2.Text)='') or (Trim(DBEditEh3.Text)='') then  Exit;
  if DM.SCJSZQry.State in [DSINSERT,DSEDIT] then
     DM.SCJSZQry.FieldByName('SCJ_SJDM').AsString:='A004';
     DM.SCJSZQry.Post;
     BS(1);
end;

procedure TSCJ_SZ.ToolButton5Click(Sender: TObject);
begin
  DM.SCJSZQry.Cancel;
  BS(1);
end;

procedure TSCJ_SZ.tbbtnFirstClick(Sender: TObject);
begin
  with DM.SCJSZQry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM SCJSZ_ITEM');
    Open;
  end;
end;

procedure TSCJ_SZ.ToolButton1Click(Sender: TObject);
var
 i:integer;
 S:string;
 //定义变量
 SJDM,SCJNO,CDNAME,CARNO:string;
 Item:array [0..999] of char;
begin
  S:='';
 { Result:=InitCom('COM1');
  if Result=0 then
    Showmessage('初始化串口成功')
  else
  begin
    Showmessage('初始化失败!'+inttostr(Result));
    Exit;
  end; }
  Result:=POS_Comm_Start(1);
  if Result=0 then
    ShowMessage('通讯成功')
  else
  begin
    ShowMessage(' 通讯失败'+inttostr(Result));
    Exit;
  end;
{  with DM.SCJSZQry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * from scjsz_item');
    OPen;
  end; }
  SJDM:='A004';
  SJDM:=Mainform.FillSpace(SJDM,4); 
  SCJNO:=DBEditEh2.Text;
  SCJNO:=Mainform.FillSpace(SCJNO,6);
  CDNAME:=DBEditEh3.Text;
  CDNAME:=Mainform.FillSpace(CDNAME,16);
  CARNO:=DBEditEh4.Text;
  CARNO:=Mainform.FillSpace(CARNO,10);
  S:=SJDM+SCJNO+CDNAME+CARNO;
  for i:=0 to length(S) do
    Item[i]:=char(S[i]);
  Result:=1;
  Result:=POS_DownLoad_Data(4,@Item[1],length(S));
  if Result=0 then
  begin
    ShowMessage('收银机信息数据下传成功!');
    POS_Comm_End();
  end
  else
  begin
    ShowMessage('收银机信息数据下传失败!');
    Exit;
  end;
end;

procedure TSCJ_SZ.FlatButton1Click(Sender: TObject);
var
 S:string;
begin
  S:='SELECT * FROM SCJSZ_ITEM where 2>1';
  if Trim(Edit1.Text)<>'' then
    S:=S+' and SCJ_CDNAME='''+Edit1.Text+'''';
  if Trim(Edit2.Text)<>'' then
    S:=S+' and SCJ_CC='''+Edit2.Text+'''';
  if Trim(Edit3.Text)<>'' then
    S:=S+' and SCJ_SCJNO='''+Edit3.Text+'''';
  with DM.SCJSZQry do
  begin
    Close;
    SQL.Clear;
    SQl.Add(S);
    open;
  end;
end;
procedure TSCJ_SZ.FlatButton2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  with DM.SCJSZQry do
  begin
    Close;
    SQl.Clear;
    SQl.Add('SELECT * FROM SCJSZ_ITEM');
    OPen;
  end;
end;

procedure TSCJ_SZ.FormShow(Sender: TObject);
begin
{  tbbtnNewBill.Enabled:=CheckRights('收银机参数设置','最头');
  tbbtnDeleteBill.Enabled:=CheckRights('收银机参数设置','上一条');
  tbbtnCommit.Enabled:=CheckRights('收银机参数设置','下一条');
  tbbtnRollback.Enabled:=CheckRights('收银机参数设置','最后');
  tbbtnPrior.Enabled:=CheckRights('收银机参数设置','新建');
  ToolButton4.Enabled:=CheckRights('收银机参数设置','修改');
  tbbtnNext.Enabled:=CheckRights('收银机参数设置','删除');
  tbbtnLast.Enabled:=CheckRights('收银机参数设置','保存');
  ToolButton5.Enabled:=CheckRights('收银机参数设置','撤消');
  tbbtnFirst.Enabled:=CheckRights('收银机参数设置','刷新');
  toolbutton1.Enabled:=CheckRights('收银机参数设置','下传'); }
end;

end.