umain.~pas

天涯進銷存系統

  frmRemoveInPut.Show; 
end;

procedure TfrmMain.Action12Execute(Sender: TObject);
begin
  if not Assigned(frmInPutReimburse) then
  frmInPutReimburse:=TfrmInPutReimburse.Create(Application);
  frmInPutReimburse.Show; 
end;

procedure TfrmMain.Action13Execute(Sender: TObject);
begin
  if not Assigned(frmSaleOrder) then
  frmSaleOrder:=TfrmSaleOrder.Create(Application);
  frmSaleOrder.Show; 
end;

procedure TfrmMain.Action14Execute(Sender: TObject);
begin
  if not Assigned(frmSaleBill) then
  frmSaleBill:=TfrmSaleBill.Create(Application);
  frmSaleBill.Show;
end;

procedure TfrmMain.Action15Execute(Sender: TObject);
begin
  if not Assigned(frmRemoveOutPut) then
  frmRemoveOutPut:=TfrmRemoveOutPut.Create(Application);
  frmRemoveOutPut.Show; 
end;

procedure TfrmMain.Action16Execute(Sender: TObject);
begin
 if not Assigned(frmOutPutReimburse) then
 frmOutPutReimburse:=TfrmOutPutReimburse.Create(Application);
 frmOutPutReimburse.Show; 
end;

procedure TfrmMain.Action17Execute(Sender: TObject);
begin
  if not Assigned(frmPartsMove) then
  frmPartsMove:=TfrmPartsMove.Create(Application);
  frmPartsMove.Show; 
end;

procedure TfrmMain.Action18Execute(Sender: TObject);
begin
  if not Assigned(frmStorageCheck) then
  frmStorageCheck:=TfrmStorageCheck.Create(Application);
  frmStorageCheck.Show; 
end;

procedure TfrmMain.Action19Execute(Sender: TObject);
begin
  if not Assigned(frmStoragePart) then
  frmStoragePart:=TfrmStoragePart.Create(Application);
  frmStoragePart.Show;
end;

procedure TfrmMain.Action20Execute(Sender: TObject);
begin
  if not Assigned(frmStorageRedressal) then
  frmStorageRedressal:=TfrmStorageRedressal.Create(Application);
  frmStorageRedressal.Show; 
end;

procedure TfrmMain.Action21Execute(Sender: TObject);
begin
  if not Assigned(frmAccept) then
  frmAccept:=TfrmAccept.Create(Application);
  frmAccept.Show;
end;

procedure TfrmMain.Action22Execute(Sender: TObject);
begin
  if not Assigned(frmPayMent) then
  frmPayMent:=TfrmPayMent.Create(Application);
  frmPayMent.Show; 
end;

procedure TfrmMain.Action23Execute(Sender: TObject);
begin
  if not Assigned(frmCashdayAccBook) then
  frmCashdayAccBook:=TfrmCashdayAccBook.Create(Application);
  frmCashdayAccBook.Show; 
end;

procedure TfrmMain.Action24Execute(Sender: TObject);
begin
  if not Assigned(frmBankDayAccBook) then
  frmBankDayAccBook:=TfrmBankDayAccBook.Create(Application);
  frmBankDayAccBook.Show;
end;

procedure TfrmMain.Action25Execute(Sender: TObject);
begin
  frmDayAccBook:=TfrmDayAccBook.Create(Application);
  frmDayAccBook.ShowModal;
  frmDayAccBook.Free; 
end;

procedure TfrmMain.Action26Execute(Sender: TObject);
begin
  if not Assigned(frmMonthAccBook) then
  frmMonthAccBook:=TfrmMonthAccBook.Create(Application);
  frmMonthAccBook.Show;
end;

procedure TfrmMain.Action27Execute(Sender: TObject);
begin
  if not Assigned(frmYearAccBook) then
  frmYearAccBook:=TfrmYearAccBook.Create(Application);
  frmYearAccBook.Show;
end;

procedure TfrmMain.Action28Execute(Sender: TObject);
begin
  if not Assigned(frmAccountReceivable) then
  frmAccountReceivable:=TfrmAccountReceivable.Create(Application);
  frmAccountReceivable.Show; 
end;

procedure TfrmMain.Action29Execute(Sender: TObject);
begin
  if not Assigned(frmAccountPayable) then
  frmAccountPayable:=TfrmAccountPayable.Create(Application);
  frmAccountPayable.Show;
end;

procedure TfrmMain.Action30Execute(Sender: TObject);
begin
  if not Assigned(frmStockOrderRep) then
  frmStockOrderRep:=TfrmStockOrderRep.Create(Application);
  frmStockOrderRep.Show;
end;

procedure TfrmMain.Action31Execute(Sender: TObject);
begin
  if not Assigned(frmPartinputRep) then
  frmPartinputRep:=TfrmPartinputRep.Create(Application);
  frmPartinputRep.Show;
end;

procedure TfrmMain.Action32Execute(Sender: TObject);
begin
  if not Assigned(frmRemoveInPutRep) then
  frmRemoveInPutRep:=TfrmRemoveInPutRep.Create(Application);
  frmRemoveInPutRep.Show;
end;

procedure TfrmMain.Action33Execute(Sender: TObject);
begin
  if not Assigned(frmPartInputReimburseRep) then
  frmPartInputReimburseRep:=TfrmPartInputReimburseRep.Create(Application);
  frmPartInputReimburseRep.Show;
end;

procedure TfrmMain.Action34Execute(Sender: TObject);
begin
  if not Assigned(frmSaleOrderRep) then
  frmSaleOrderRep:=TfrmSaleOrderRep.Create(Application);
  frmSaleOrderRep.Show;
end;

procedure TfrmMain.Action35Execute(Sender: TObject);
begin
  if not Assigned(frmPartoutputRep) then
  frmPartoutputRep:=TfrmPartoutputRep.Create(Application);
  frmPartoutputRep.Show;
end;

procedure TfrmMain.Action36Execute(Sender: TObject);
begin
  if not Assigned(frmRemoveOutPutRep) then
  frmRemoveOutPutRep:=TfrmRemoveOutPutRep.Create(Application);
  frmRemoveOutPutRep.Show;
end;

procedure TfrmMain.Action37Execute(Sender: TObject);
begin
  if not Assigned(frmPartOutputReimburseRep) then
  frmPartOutputReimburseRep:=TfrmPartOutputReimburseRep.Create(Application);
  frmPartOutputReimburseRep.Show;
end;

procedure TfrmMain.Action38Execute(Sender: TObject);
begin
  if not Assigned(frmPartSalegainRep) then
  frmPartSalegainRep:=TfrmPartSalegainRep.Create(Application);
  frmPartSalegainRep.Show;
end;

procedure TfrmMain.Action39Execute(Sender: TObject);
begin
  Application.MessageBox('对不起，试用版不可用。请购买正式版！',Hintinfo, $30);
end;

procedure TfrmMain.Action40Execute(Sender: TObject);
begin
  frmUserSetup:=TfrmUserSetup.Create(Application);
  frmUserSetup.ShowModal;
  frmUserSetup.Free; 
end;

procedure TfrmMain.Action41Execute(Sender: TObject);
begin
  Selectsysteminfotype:=1;
  frmSysinfoEdit:=TfrmSysinfoEdit.Create(Application);
  frmSysinfoEdit.ShowModal;
  frmSysinfoEdit.Free;
end;

procedure TfrmMain.Action01Execute(Sender: TObject);
begin
  frmUserEditPassword:=TfrmUserEditPassword.Create(Application);
  frmUserEditPassword.ShowModal;
  frmUserEditPassword.Free; 
end;

procedure TfrmMain.Action02Execute(Sender: TObject);
begin
  if Application.MainForm.MDIChildCount>1 then
  begin
    Application.MessageBox('请先退出现在所有的操作。',Hintinfo,$30);
    Exit;
  end;
  if Application.MessageBox('系统将关闭现在所有打开的数据，确定要重新选择帐套吗？',Hintinfo,$24)=idYes then
  begin
    dmData.SQLConnection.Connected:=False;
    FrmSelectAcc:=TFrmSelectAcc.Create(Application);
    FrmSelectAcc.ShowModal;
    FrmSelectAcc.Free;
    dmData.DataModuleCreate(Sender);
//    GetUserLong(True);
  end;
end;

procedure TfrmMain.Action03Execute(Sender: TObject);
begin
  FrmUserLogin:=TFrmUserLogin.Create(Application);
  FrmUserLogin.ShowModal;
  FrmUserLogin.Free;
  UserLogonkey(FrmMain, 'FrmMain');
  AccinfoLabel.Caption:='帐套名称：'+AccbookName+'    登录用户：'+UserName;
end;

procedure TfrmMain.Action04Execute(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.Action05Execute(Sender: TObject);
begin
//
end;

procedure TfrmMain.Action06Execute(Sender: TObject);
begin
  ShellExecute(0, Nil, 'www.wanyida.cn/coms', Nil, Nil, 0);  
end;

procedure TfrmMain.Action07Execute(Sender: TObject);
begin
  ShellExecute(0, Nil, 'www.wanyida.cn/coms', Nil, Nil, 0);
end;

procedure TfrmMain.Action08Execute(Sender: TObject);
begin
  frmWelcome:=TfrmWelcome.Create(Application);
  frmWelcome.Long:=1;
  frmWelcome.ShowModal;
  frmWelcome.Free;
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  if dmData.sdsSysinfo.Fieldbyname('isNew').asstring<>'1' then
  begin
    Selectsysteminfotype:=0;
    frmSysinfoEdit:=TfrmSysinfoEdit.Create(Application);
    frmSysinfoEdit.ShowModal;
    frmSysinfoEdit.Free;
  end;
  AccinfoLabel.Caption:='帐套名称：'+AccbookName+'    登录用户：'+UserName;
end;

procedure TfrmMain.MinButtonClick(Sender: TObject);
begin
  Application.Minimize;
end;

procedure TfrmMain.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

procedure TfrmMain.Image2DblClick(Sender: TObject);
begin
  Left:=0;
  Top:=0;
  Width:=1024;
  Height:=768;
end;

procedure TfrmMain.FormResize(Sender: TObject);
begin
MinButton.Left:=frmmain.Width-58;
SysCloseButton.Left:=frmmain.Width-29;
CloseFrmButton.Left:= SysCloseButton.Left;
end;

procedure TfrmMain.maxbuttonClick(Sender: TObject);
begin
frmmain.Left:=0;
frmmain.Top:=0;
frmmain.Height:=600;
frmmain.Width:=800;
end;

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

end.