mainunit.pas

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

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls,  FR_Desgn, ComCtrls;

type
  TMainForm = 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;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    frDesigner1: TfrDesigner;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    Image1: TImage;
    N62: TMenuItem;
    N63: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Panel1: TPanel;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
  private
    { Private declarations }
  public
    YHName,DATACS:string;
    function FillSpace(StrData: String; LengthStr: integer): String;
    { Public declarations }
  end;

var
  Result:integer;
  MainForm: TMainForm;
  Function InitCom(p_szCom:pchar):integer;Stdcall;external 'PCA.dll'; //串口初始化
  Function POS_Comm_Start(Mode:byte):smallint;stdcall;external 'PCA.dll';  //检测通讯连接状态
  Function POS_UpLoad_Data(Data_Buff:Pchar;Data_Len:Pchar):smallint;stdcall;external 'PCA.dll';//上传交易数据
  Function POS_DownLoad_Data(Mode:byte;Data_Buff:Pchar;Data_Len:integer):smallint;stdcall;external 'PCA.dll';//下载交易数据
  Function POS_Comm_End():smallint;stdcall;external 'PCA.dll';//通讯结束

implementation

uses GY_Unit, DMUnit, CG_Unit, STOCKUnit, UNITUnit, SORTUnit, ITEMUnit,
  CGD_Unit, RKD_Unit, CKD_Unit, CGDM_Unit, RKDM_Unit, CKDM_Unit,
  CURRSTOCK_Unit, SUMSTOCK_Unit, BEGSTOCK_Unit, LCRKD_Unit, LCBASEUnit,
  LCROAD_Unit, LCRKDM_Unit, LCRKDTIT_Unit, SALESM_Unit, LCITEM_Unit,
  CUST_Unit, POWER_Unit, passUnit, DENLUUnit, SALEHZ_Unit, ABOUT_Unit,
  CGDTJ_Unit, RKDTJ_Unit, CKDTJ_Unit, LCRKDTJ_Unit, CLASS_Unit, JXZ_Unit,
  JXZM_Unit, JSZ_Unit, JXZTJ_Unit, JSZTJ_Unit, RKCHART_Unit, CKCHART_Unit,
  LCRKCHART_Unit, JXZCHART_Unit, JSZCHART_Unit, DESK_Unit, SALELRCHART_Unit,
  SCJSZUnit, CS_Unit, DATACS_Unit, SALEITEMCHA_Unit, SALEBZ_Unit;

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);
begin
  if Application.FindComponent('GY_FORM')<>NIL Then
    GY_FORM.Show Else
    GY_FORM:=TGY_FORM.Create(Application);
    GY_FORM.Show;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  if Application.MessageBox('确实要退出系统？', '提示',
    MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDyes then
    Application.Terminate;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('确实要退出系统？', '提示',
    MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDyes then
    Application.Terminate;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
  If Application.FindComponent('CG_FORM')<>NIL Then
     CG_FORM.Show else
     CG_FORM:=TCG_FORM.Create(Application);
     CG_FORM.Show;
    
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  If Application.FindComponent('STOCK_FORM')<>NIL Then
     STOCK_FORM.Show else
     STOCK_FORM:=TSTOCK_FORM.Create(Application);
     STOCK_FORM.Show;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
  If Application.FindComponent('UNIT_FORM')<>NIL Then
     UNIT_FORM.Show else
     UNIT_FORM:=TUNIT_FORM.Create(Application);
     UNIT_FORM.Show;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
  If Application.FindComponent('SORT_FORM')<>NIL Then
     SORT_FORM.Show else
     SORT_FORM:=TSORT_FORM.Create(Application);
     SORT_FORM.Show;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
  If Application.FindComponent('ITEM_Form')<>NIL Then
     ITEM_Form.Show else
     ITEM_Form:=TITEM_Form.Create(Application);
     ITEM_Form.Show;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  If Application.FindComponent('CGD_FORM')<>nil then
    CGD_FORM.Show else
    begin
      CGD_FORM:=TCGD_FORM.Create(Application);
      CGD_FORM.Show;
    end;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  if Application.FindComponent('RKD_Form')<>nil then
    RKD_Form.Show else
    begin
      RKD_Form:=TRKD_Form.Create(Application);
      RKD_Form.Show;
    end;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  if Application.FindComponent('CKD_Form')<>nil then
    CKD_Form.Show else
    begin
      CKD_Form:=TCKD_Form.Create(Application);
      CKD_Form.Show;
    end;
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
  if Application.FindComponent('CGDM_Form')<>nil then
    CGDM_Form.Show else
    begin
      CGDM_Form:=TCGDM_Form.Create(Application);
      CGDM_Form.Show;
    end;
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
  if Application.FindComponent('RKDM_Form')<>nil then
    RKDM_Form.Show else
    begin
      RKDM_Form:=TRKDM_Form.Create(Application);
      RKDM_Form.Show;
    end;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
  if Application.FindComponent('CKDM_Form')<>nil then
    CKDM_Form.Show else
    begin
      CKDM_Form:=TCKDM_Form.Create(Application);
      CKDM_Form.Show;
    end;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
  if Application.FindComponent('CURRSTOCK_ForM')<>nil then
    CURRSTOCK_ForM.Show else
    begin
      CURRSTOCK_ForM:=TCURRSTOCK_ForM.Create(Application);
      CURRSTOCK_ForM.Show;
    end;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
  if Application.FindComponent('SUMSTOCK_FORM')<>nil then
    SUMSTOCK_FORM.Show else
    begin
      SUMSTOCK_FORM:=TSUMSTOCK_FORM.Create(Application);
      SUMSTOCK_FORM.Show;
    end;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
  if Application.FindComponent('BEGSTOCK_FORM')<>nil then
    BEGSTOCK_FORM.Show else
    begin
      BEGSTOCK_FORM:=TBEGSTOCK_FORM.Create(Application);
      BEGSTOCK_FORM.Show;
    end;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
  if Application.FindComponent('LCRKD_Form')<>nil then
    LCRKD_Form.Show else
    begin
      LCRKD_Form:=TLCRKD_Form.Create(Application);
      LCRKD_Form.Show;
    end;
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
  if Application.FindComponent('LCBASE_Form')<>nil then
    LCBASE_Form.Show else
    begin
      LCBASE_Form:=TLCBASE_Form.Create(Application);
      LCBASE_Form.Show;
    end;
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
  if Application.FindComponent('LCROAD_Form')<>nil then
    LCROAD_Form.Show else
    begin
      LCROAD_Form:=TLCROAD_Form.Create(Application);
      LCROAD_Form.Show;
    end;
end;

procedure TMainForm.N30Click(Sender: TObject);
begin
  if Application.FindComponent('LCRKDM_Form')<>nil then
    LCRKDM_Form.Show else
    begin
      LCRKDM_Form:=TLCRKDM_Form.Create(Application);
      LCRKDM_Form.Show;
    end;
end;

procedure TMainForm.N33Click(Sender: TObject);
begin
  if Application.FindComponent('LCRKDTIT_Form')<>nil then
    LCRKDTIT_Form.Show else