mainunit.pas

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

    begin
      LCRKDTIT_Form:=TLCRKDTIT_Form.Create(Application);
      LCRKDTIT_Form.Show;
    end;
end;

procedure TMainForm.N31Click(Sender: TObject);
begin
  if Application.FindComponent('SALESM_Form')<>nil then
    SALESM_Form.Show else
    begin
      SALESM_Form:=TSALESM_Form.Create(Application);
      SALESM_Form.Show;
    end;
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
  if Application.FindComponent('LCITEM_Form')<>nil then
    LCITEM_Form.Show else
    begin
      LCITEM_Form:=TLCITEM_Form.Create(Application);
      LCITEM_Form.Show;
    end;
end;

procedure TMainForm.N39Click(Sender: TObject);
begin
  if Mainform.YHNAME<>'管理员' Then Exit;
  if Application.FindComponent('CUST_Form')<>nil then
    CUST_Form.Show else
    begin
      CUST_Form:=TCUST_Form.Create(Application);
      CUST_Form.Show;
    end;
end;

procedure TMainForm.N40Click(Sender: TObject);
begin
  if Mainform.YHNAME<>'管理员' Then abort;
  if Application.FindComponent('POWER_Form')<>nil then
    POWER_Form.Show else
    begin
      POWER_Form:=TPOWER_Form.Create(Application);
      POWER_Form.Show;
    end;
end;

procedure TMainForm.N41Click(Sender: TObject);
begin
  if Application.FindComponent('passForm')<>nil then
    passForm.Show else
    begin
      passForm:=TpassForm.Create(Application);
      passForm.Show;
    end;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  if Application.FindComponent('DENLUFORM')<>nil then
     DENLUFORM.ShowModal
  else
  begin
  DENLUFORM:=TDENLUFORM.Create(Application);
  DENLUFORM.ShowModal;
  end;
  with DM.PRC_ADOQ do
  begin
    CLose;
    OPen;
  end;
  if Trim(DM.PRC_ADOQ.FieldByName('P_path').AsString)='' then Exit;
  Image1.Picture.LoadFromFile(DM.PRC_ADOQ.FieldByName('P_path').AsString);
  Image1.Stretch:=True;
end;

procedure TMainForm.N36Click(Sender: TObject);
begin
  if Application.FindComponent('SALEHZ_Form')<>nil then
     SALEHZ_Form.Show
  else
  begin
  SALEHZ_Form:=TSALEHZ_Form.Create(Application);
  SALEHZ_Form.Show;
  end;
end;

procedure TMainForm.N44Click(Sender: TObject);
begin
  if Application.FindComponent('About_form')<>nil then
    About_Form.Show
  else
  begin
    About_Form:=TAbout_Form.Create(Application);
    About_Form.Show;
  end;
end;

procedure TMainForm.N46Click(Sender: TObject);
begin
  if Application.FindComponent('CGDTJ_Form')<>nil then
    CGDTJ_Form.Show
  else
  begin
    CGDTJ_Form:=TCGDTJ_Form.Create(Application);
    CGDTJ_Form.Show;
  end;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
  if Application.FindComponent('RKDTJ_Form')<>nil then
    RKDTJ_Form.Show
  else
  begin
    RKDTJ_Form:=TRKDTJ_Form.Create(Application);
    RKDTJ_Form.Show;
  end;
end;

procedure TMainForm.N48Click(Sender: TObject);
begin
  if Application.FindComponent('CKDTJ_Form')<>nil then
    CKDTJ_Form.Show
  else
  begin
    CKDTJ_Form:=TCKDTJ_Form.Create(Application);
    CKDTJ_Form.Show;
  end;
end;

procedure TMainForm.N49Click(Sender: TObject);
begin
  if Application.FindComponent('LCRKDTJ_Form')<>nil then
    LCRKDTJ_Form.Show
  else
  begin
    LCRKDTJ_Form:=TLCRKDTJ_Form.Create(Application);
    LCRKDTJ_Form.Show;
  end;
end;

procedure TMainForm.N50Click(Sender: TObject);
begin
  if Application.FindComponent('CLASS_Form')<>nil then
    CLASS_Form.Show
  else
  begin
    CLASS_Form:=TCLASS_Form.Create(Application);
    CLASS_Form.Show;
  end;
end;

procedure TMainForm.N51Click(Sender: TObject);
begin
  if Application.FindComponent('JXZ_Form')<>nil then
    JXZ_Form.Show
  else
  begin
    JXZ_Form:=TJXZ_Form.Create(Application);
    JXZ_Form.Show;
  end;
end;

procedure TMainForm.N52Click(Sender: TObject);
begin
  if Application.FindComponent('JXZM_Form')<>nil then
    JXZM_Form.Show
  else
  begin
    JXZM_Form:=TJXZM_Form.Create(Application);
    JXZM_Form.Show;
  end;
end;

procedure TMainForm.N53Click(Sender: TObject);
begin
  if Application.FindComponent('JSZM_Form')<>nil then
    JSZM_Form.Show
  else
  begin
    JSZM_Form:=TJSZM_Form.Create(Application);
    JSZM_Form.Show;
  end;
end;

procedure TMainForm.N54Click(Sender: TObject);
begin
  if Application.FindComponent('JXZTJ_Form')<>nil then
    JXZTJ_Form.Show
  else
  begin
    JXZTJ_Form:=TJXZTJ_Form.Create(Application);
    JXZTJ_Form.Show;
  end;
end;

procedure TMainForm.N55Click(Sender: TObject);
begin
  if Application.FindComponent('JSZTJ_Form')<>nil then
    JSZTJ_Form.Show
  else
  begin
    JSZTJ_Form:=TJSZTJ_Form.Create(Application);
    JSZTJ_Form.Show;
  end;
end;

procedure TMainForm.N57Click(Sender: TObject);
begin
  if Application.FindComponent('RKCHART_Form')<>nil then
    RKCHART_Form.Show
  else
  begin
    RKCHART_Form:=TRKCHART_Form.Create(Application);
    RKCHART_Form.Show;
  end;
end;

procedure TMainForm.N58Click(Sender: TObject);
begin
  if Application.FindComponent('CKCHART_Form')<>nil then
    CKCHART_Form.Show
  else
  begin
    CKCHART_Form:=TCKCHART_Form.Create(Application);
    CKCHART_Form.Show;
  end;
end;

procedure TMainForm.N59Click(Sender: TObject);
begin
  if Application.FindComponent('LCRKCHART_Form')<>nil then
    LCRKCHART_Form.Show
  else
  begin
    LCRKCHART_Form:=TLCRKCHART_Form.Create(Application);
    LCRKCHART_Form.Show;
  end;
end;

procedure TMainForm.N60Click(Sender: TObject);
begin
  if Application.FindComponent('JXZCHART_Form')<>nil then
    JXZCHART_Form.Show
  else
  begin
    JXZCHART_Form:=TJXZCHART_Form.Create(Application);
    JXZCHART_Form.Show;
  end;
end;

procedure TMainForm.N61Click(Sender: TObject);
begin
  if Application.FindComponent('JSZCHART_Form')<>nil then
    JSZCHART_Form.Show
  else
  begin
    JSZCHART_Form:=TJSZCHART_Form.Create(Application);
    JSZCHART_Form.Show;
  end;
end;

procedure TMainForm.N62Click(Sender: TObject);
begin
  if Application.FindComponent('DESK_Form')<>nil then
    DESK_Form.Show
  else
  begin
    DESK_Form:=TDESK_Form.Create(Application);
    DESK_Form.Show;
  end;
end;

procedure TMainForm.N63Click(Sender: TObject);
begin
  if Application.FindComponent('SALELRCHART_Form')<>nil then
    SALELRCHART_Form.Show
  else
  begin
    SALELRCHART_Form:=TSALELRCHART_Form.Create(Application);
    SALELRCHART_Form.Show;
  end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text:='当前时间'+'   '+datetimetostr(NOW());
end;

procedure TMainForm.N64Click(Sender: TObject);
begin
  if Application.FindComponent('SCJ_SZ')<>nil then
    SCJ_SZ.Show
  else
  begin
    SCJ_SZ:=TSCJ_SZ.Create(Application);
    SCJ_SZ.Show;
  end;
end;

function TMainForm.FillSpace(StrData: String; LengthStr: integer): String;
var
  TempLength:integer;
  i:integer;
begin
  Result:=StrData;
  TempLength:=LengthStr-Length(StrData);
  if TempLength<=0 then exit;

  for i:=0 to TempLength-1 do
    Result:=Result+' ';
end;

procedure TMainForm.N45Click(Sender: TObject);
begin
//ShellExecute(handle,'open','E:\Soft\手持机\铁路餐饮系统帮助\index.htm','-s','',SW_SHOWNORMAL);
end;

procedure TMainForm.N65Click(Sender: TObject);
begin
  if Application.FindComponent('CS_FORM')<>nil then
    CS_FORM.Show
  else
  begin
    CS_FORM:=TCS_FORM.Create(Application);
    CS_FORM.Show;
  end;
end;

procedure TMainForm.N66Click(Sender: TObject);
begin
  if Application.FindComponent('DATACS_Form')<>nil then
    DATACS_Form.Show
  else
  begin
    DATACS_Form:=TDATACS_Form.Create(Application);
    DATACS_Form.Show;
  end;
end;

procedure TMainForm.N67Click(Sender: TObject);
begin
  if Application.FindComponent('SALEITEMCHA_Form')<>nil then
    SALEITEMCHA_Form.Show
  else
  begin
    SALEITEMCHA_Form:=TSALEITEMCHA_Form.Create(Application);
    SALEITEMCHA_Form.Show;
  end;
end;

procedure TMainForm.N68Click(Sender: TObject);
begin
  if Application.FindComponent('SALEBZ_Form')<>nil then
    SALEBZ_Form.Show
  else
  begin
    SALEBZ_Form:=TSALEBZ_Form.Create(Application);
    SALEBZ_Form.Show;
  end;
end;

end.