cshw00_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

  tlbCsh550.Caption:=GetDBString('CSHW0001039');  //新建帐户
  tlbCsh500.Caption:=GetDBString('CSHW0001040');  //资金总帐
  tlbCsh510.Caption:=GetDBString('CSHW0001041');  //资金帐本
  tlbCsh140.Caption:=GetDBString('CSHW0001042');  //业务分类
  tlbCsh150.Caption:=GetDBString('CSHW0001043');  //项目资料
  tlbHrm100.Caption:=GetDBString('CSHW0001044');  //部门资料
  tlbHrm150.Caption:=GetDBString('CSHW0001045');  //员工资料
  tlbOrd120.Caption:=GetDBString('CSHW0001046');  //地区资料
  tlbOrd150.Caption:=GetDBString('CSHW0001047');  //客户资料
  tlbExit.Caption:=GetDBString('CSHW0001048');  //退出

  pnLists.Caption:=GetDBString('CSHW0001049');  //资金帐户
  pnReports.Caption:=GetDBString('CSHW0001050');  //查询报表
  TabSheet1.Caption:=GetDBString('CSHW0001051');  //资金帐本
  TabSheet2.Caption:=GetDBString('CSHW0001052');  //预警信息

  lblAcct.Caption:=GetDBString('CSHW0001053');  //帐户
  lblDate.Caption:=GetDBString('CSHW0001054');  //日期
  sbSearch.Caption:=GetDBString('CSHW0001055');  //查询
  bbtnNew.Caption:=GetDBString('CSHW0001056');  //帐户(&N)
  bbtnRefresh.Caption:=GetDBString('CSHW0001057');  //刷新(&R)
  bbtnLocate.Caption:=GetDBString('CSHW0001058');  //查找(&F)
  bbtnSearch.Caption:=GetDBString('CSHW0001059');  //查询(&S)
  bbtnPrint.Caption:=GetDBString('CSHW0001060');  //打印(&P)

  adsMasterCURNM.DisplayLabel:=GetDBString('CSHW0001062');  //币别
  adsMasterACCNM.DisplayLabel:=GetDBString('CSHW0001063');  //帐户名称
  adsMasterAMT01.DisplayLabel:=GetDBString('CSHW0001064');  //期初
  adsMasterAMT02.DisplayLabel:=GetDBString('CSHW0001065');  //收入
  adsMasterAMT03.DisplayLabel:=GetDBString('CSHW0001066');  //支出
  adsMasterAMT04.DisplayLabel:=GetDBString('CSHW0001067');  //余额

  adsDetailBILDT.DisplayLabel:=GetDBString('CSHW0001068');  //日期
  adsDetailBILNO.DisplayLabel:=GetDBString('CSHW0001069');  //票据编号
  adsDetailMEMO.DisplayLabel:=GetDBString('CSHW0001070');  //摘要
  adsDetailAMT01.DisplayLabel:=GetDBString('CSHW0001071');  //收入
  adsDetailAMT02.DisplayLabel:=GetDBString('CSHW0001072');  //支出
  adsDetailAMT03.DisplayLabel:=GetDBString('CSHW0001073');  //余额

  bbtnInsert.Caption:=GetDBString('CSHW0001074');  //新增(&A)
  bbtnUpdate.Caption:=GetDBString('CSHW0001075');  //修改(&E)
  bbtnDelete.Caption:=GetDBString('CSHW0001076');  //删除(&D)

  miIncome.Caption:=GetDBString('CSHW0001081');  //收支单(&D)...
  miTransfer.Caption:=GetDBString('CSHW0001082');  //转帐单(&T)...

  PageControl1.ActivePageIndex:=0;

  mmiReaded.Caption:=GetDBString('COM00006008');  //标识为“已阅读”

  ActCsh600.Caption:=GetDBString('CSHW0001083');  //债仅债务
  ActCsh730.Caption:=GetDBString('CSHW0001084');  //债仅债务查询
end;

procedure TCshW00_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  SetInterface;
  ADate:=GetServerDate;
  dtpStartDate.Date:=GetMonthFirstDate(ADate);
  dtpEndDate.Date:=GetMonthEndDate(ADate);
  //查询报表
  GetAllReport(adsReports,ActionList1,'CSH');
  //取得所有帐户资料
  RefreshAccount;
  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure TCshW00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TCshW00_01Form.FormActivate(Sender: TObject);
begin
  Animate1.ResName:='HOWWELL';
  Animate1.Play(1,100,0);
  AModule:='CSH';
end;

procedure TCshW00_01Form.dbgMasterBackgroundDrawEvent(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect);
var
  AText:string;
begin
  ARect.Left:=0;
  ARect.Top:=0;
  ACanvas.Brush.Color:=dbgMaster.GroupPanelColor;
  ACanvas.Font.Color:=dbgMaster.GroupPanelFontColor;
  //您可以把列标题拖放到此处使记录按此列进行分组
  if dbgMaster.GroupColumnCount=0 then AText:=' '+GetDBString('NOT10001012') else AText:='';
  Windows.FillRect(ACanvas.Handle, ARect, 0);
  DrawText(ACanvas.Handle, PChar(AText), Length(AText), ARect, DT_LEFT or DT_EXPANDTABS or DT_NOPREFIX or DT_SINGLELINE or DT_VCENTER);
end;

procedure TCshW00_01Form.ActCshS00Execute(Sender: TObject);
begin
//现金系统参数
  CreateFormInPackage('TCshS00_01Form',True);
end;

procedure TCshW00_01Form.ActOrd120Execute(Sender: TObject);
begin
//地区资料维护
  CreateFormInPackage('TOrd120_01Form',True);
end;

procedure TCshW00_01Form.ActOrd150Execute(Sender: TObject);
begin
//客户资料维护
  CreateFormInPackage('TOrd150_01Form',True);
end;

procedure TCshW00_01Form.ActHrm100Execute(Sender: TObject);
begin
//部门资料维护
  CreateFormInPackage('THrm100_01Form',True);
end;

procedure TCshW00_01Form.ActHrm120Execute(Sender: TObject);
begin
//岗位资料维护
  CreateFormInPackage('THrm120_01Form',True);
end;

procedure TCshW00_01Form.ActHrm130Execute(Sender: TObject);
begin
//员工状态维护
  CreateFormInPackage('THrm130_01Form',True);
end;

procedure TCshW00_01Form.ActHrm150Execute(Sender: TObject);
begin
//员工资料维护
  CreateFormInPackage('THrm150_01Form',True);
end;

procedure TCshW00_01Form.ActCsh140Execute(Sender: TObject);
begin
//业务分类维护
  CreateFormInPackage('TCsh140_01Form',True);
end;

procedure TCshW00_01Form.ActCsh150Execute(Sender: TObject);
begin
//项目资料维护
  CreateFormInPackage('TCsh150_01Form',True);
end;

procedure TCshW00_01Form.ActGld100Execute(Sender: TObject);
begin
//币别资料维护
  CreateFormInPackage('TGld100_01Form',True);
end;

procedure TCshW00_01Form.ActPassExecute(Sender: TObject);
begin
//更改登录密码(&C)...
  AStartTime:=GetTickCount;
  Sys600_01Form:=TSys600_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Sys600_01Form.ShowModal;
end;

procedure TCshW00_01Form.ActLonginExecute(Sender: TObject);
begin
//更换操作员(&U)...
  ReLogin;
end;

procedure TCshW00_01Form.ActExitExecute(Sender: TObject);
begin
//退出(&X)
  Application.MainForm.Close;
end;

procedure TCshW00_01Form.ActCsh500Execute(Sender: TObject);
begin
//资金总帐
  CreateFormInPackage('TCsh500_01Form',True);
end;

procedure TCshW00_01Form.ActCsh510Execute(Sender: TObject);
begin
//资金帐本
  CreateFormInPackage('TCsh510_01Form',True);
end;

procedure TCshW00_01Form.ActCsh550Execute(Sender: TObject);
begin
//新建帐户
  CreateFormInPackage('TCsh550_01Form',True);
  //取得所有帐户资料
  RefreshAccount;
end;

procedure TCshW00_01Form.ActCsh400Execute(Sender: TObject);
begin
//资金预算维护
  CreateFormInPackage('TCsh400_01Form',True);
end;

procedure TCshW00_01Form.ActCsh410Execute(Sender: TObject);
begin
//资金预算查询
  CreateFormInPackage('TCsh410_01Form',True);
end;

procedure TCshW00_01Form.ActCsh420Execute(Sender: TObject);
begin
//资金预算分析
  CreateFormInPackage('TCsh420_01Form',True);
end;

procedure TCshW00_01Form.ActCsh700Execute(Sender: TObject);
begin
//资金余额查询
  CreateFormInPackage('TCsh700_01Form',True);
end;

procedure TCshW00_01Form.ActCsh710Execute(Sender: TObject);
begin
//资金来源查询
  CreateFormInPackage('TCsh710_01Form',True);
end;

procedure TCshW00_01Form.ActCsh720Execute(Sender: TObject);
begin
//资金去向查询
  CreateFormInPackage('TCsh720_01Form',True);
end;

procedure TCshW00_01Form.ActCsh800Execute(Sender: TObject);
begin
//收支分析报表
  CreateFormInPackage('TCsh800_01Form',True);
end;

procedure TCshW00_01Form.ActCsh810Execute(Sender: TObject);
begin
//比较分析报表
  CreateFormInPackage('TCsh810_01Form',True);
end;

procedure TCshW00_01Form.ActCsh820Execute(Sender: TObject);
begin
//资金日报表
  CreateFormInPackage('TCsh820_01Form',True);
end;

procedure TCshW00_01Form.ActCsh830Execute(Sender: TObject);
begin
//资金周报表
  CreateFormInPackage('TCsh830_01Form',True);
end;

procedure TCshW00_01Form.ActCsh840Execute(Sender: TObject);
begin
//资金月报表
  CreateFormInPackage('TCsh840_01Form',True);
end;

procedure TCshW00_01Form.ActCsh850Execute(Sender: TObject);
begin
//资金季报表
  CreateFormInPackage('TCsh850_01Form',True);
end;

procedure TCshW00_01Form.ActCsh860Execute(Sender: TObject);
begin
//资金年报表
  CreateFormInPackage('TCsh860_01Form',True);
end;

procedure TCshW00_01Form.ActContentsExecute(Sender: TObject);
begin
//帮助主题(&H)
  Application.HelpCommand(HELP_FINDER,0);
end;

procedure TCshW00_01Form.ActEmailExecute(Sender: TObject);
begin
//写信给作者(&E)...
  Screen.Cursor:=crHourGlass;
  ShellExecute(Handle, nil, PChar('mailto:'+AEmail),nil,nil,SW_NORMAL);
  Screen.Cursor:=crDefault;
end;

procedure TCshW00_01Form.ActHomePageExecute(Sender: TObject);
begin
//网上浩晖(&P)...
  Screen.Cursor:=crHourGlass;
  ShellExecute(Handle, nil, PChar(AHome),nil,nil,SW_NORMAL);
  Screen.Cursor:=crDefault;
end;

procedure TCshW00_01Form.ActAboutExecute(Sender: TObject);
begin
//关于浩晖(&A)...
  WelcomeForm:=TWelcomeForm.Create(Application);
  WelcomeForm.AFlag:=True;
  WelcomeForm.ShowModal;
end;

procedure TCshW00_01Form.ActRegExecute(Sender: TObject);
begin
//软件注册(&R)...
  AStartTime:=GetTickCount;
  HwRegisterForm:=THwRegisterForm.Create(Application);
  ShowRunTime;  //显示程序执行时间
  HwRegisterForm.ShowModal;
  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure TCshW00_01Form.ActUpgradeExecute(Sender: TObject);
begin
//在线智能升级(&U)...
  ShowUpgradeForm;
end;

procedure TCshW00_01Form.GetCashMaster(ADataSet:TADODataSet;AFromDate,AToDate:TDateTime);
var
  AccNo:Integer;
begin
  //建立资金总帐临时表
  ADataSet.DisableControls;
  ADataSet.Close;
  ADataSet.FieldDefs.Clear;
  ADataSet.FieldDefs.Add('CURNM',ftString,30);    //币别
  ADataSet.FieldDefs.Add('ACCNM',ftString,50);    //帐户名称
  ADataSet.FieldDefs.Add('AMT01',ftCurrency,0);   //期初余额
  ADataSet.FieldDefs.Add('AMT02',ftCurrency,0);   //收入金额
  ADataSet.FieldDefs.Add('AMT03',ftCurrency,0);   //支出金额
  ADataSet.FieldDefs.Add('AMT04',ftCurrency,0);   //帐户余额
  ADataSet.CreateDataSet;
  //取得所有帐户资料
  qryCsh550.Close;
  qryCsh550.SQL.Clear;
  if ASuper then
  begin
    qryCsh550.SQL.Add('select A.C550_001, B.G100_003, A.C550_002 from CSH550 A, GLD100 B where A.C550_005=B.G100_001');
  end else
  begin
    qryCsh550.SQL.Add('select B.C550_001, C.G100_003, B.C550_002 from SYS500C A, CSH550 B, GLD100 C');
    qryCsh550.SQL.Add('where A.S500C_002=B.C550_001 and B.C550_005=C.G100_001 and A.S500C_003=''ACC'' and A.S500C_004='+GetBoolean(True)+' and A.S500C_001='+IntToStr(AUserID));
  end;
  qryCsh550.Open;
  while not qryCsh550.Eof do
  begin
    AccNo:=qryCsh550.FieldByName('C550_001').Value;
    ADataSet.Append;
    ADataSet.FieldByName('CURNM').Value:=qryCsh550.FieldByName('G100_003').Value;
    ADataSet.FieldByName('ACCNM').Value:=qryCsh550.FieldByName('C550_002').Value;
    //取得帐户的期初余额
    ADataSet.FieldByName('AMT01').Value:=GetAccAmount(AccNo, AFromDate, AToDate, 1);
    //取得帐户的收入金额
    ADataSet.FieldByName('AMT02').Value:=GetAccAmount(AccNo, AFromDate, AToDate, 2);
    //取得帐户的支出金额
    ADataSet.FieldByName('AMT03').Value:=GetAccAmount(AccNo, AFromDate, AToDate, 3);
    //取得帐户的余额
    ADataSet.FieldByName('AMT04').Value:=ADataSet.FieldByName('AMT01').Value+
      ADataSet.FieldByName('AMT02').Value-ADataSet.FieldByName('AMT03').Value;
    ADataSet.Post;
    //期初、收入、支出、余额合计
    AOpen:=AOpen+ADataSet.FieldByName('AMT01').Value;
    AIncome:=AIncome+ADataSet.FieldByName('AMT02').Value;
    APayment:=APayment+ADataSet.FieldByName('AMT03').Value;
    ABalance:=ABalance+ADataSet.FieldByName('AMT04').Value;
    qryCsh550.Next;
  end;
  ADataSet.EnableControls;
end;

procedure TCshW00_01Form.GetCashDetail(ADataSet:TADODataSet;AccNo:Integer;AFromDate,AToDate:TDateTime);
begin
  //建立资金总帐临时表
  ADataSet.DisableControls;
  ADataSet.Close;
  ADataSet.FieldDefs.Clear;
  ADataSet.FieldDefs.Add('BILDT',ftDateTime,0);
  ADataSet.FieldDefs.Add('BILNO',ftString,20);
  ADataSet.FieldDefs.Add('MEMO',ftString,60);
  ADataSet.FieldDefs.Add('AMT01',ftCurrency,0);
  ADataSet.FieldDefs.Add('AMT02',ftCurrency,0);
  ADataSet.FieldDefs.Add('AMT03',ftCurrency,0);
  ADataSet.CreateDataSet;
  //取得帐户的期初余额
  ADataSet.Append;
  ADataSet.FieldByName('BILDT').AsString:='';
  ADataSet.FieldByName('BILNO').AsString:='';
  ADataSet.FieldByName('MEMO').Value:=GetDBString('CSH51001017');  //期初余额
  ADataSet.FieldByName('AMT01').AsString:='';
  ADataSet.FieldByName('AMT02').AsString:='';
  ADataSet.FieldByName('AMT03').Value:=GetAccAmount(AccNo, AFromDate, AToDate, 1);
  ADataSet.Post;
  //取得帐户收支明细资料
  qryCsh550.Close;
  qryCsh550.SQL.Clear;
  qryCsh550.SQL.Add('select * from CSH510A where C510A_004<>0 and C510A_003='+IntToStr(AccNo));
  qryCsh550.SQL.Add(' and C510A_010>='+GetDateString(AFromDate)+' and C510A_010<='+GetDateString(AToDate));
  qryCsh550.SQL.Add('order by C510A_010, C510A_002');
  qryCsh550.Open;
  while not qryCsh550.Eof do
  begin
    ADataSet.Append;
    ADataSet.FieldByName('BILDT').Value:=qryCsh550.FieldByName('C510A_010').Value;
    ADataSet.FieldByName('BILNO').Value:=qryCsh550.FieldByName('C510A_002').AsString;
    ADataSet.FieldByName('MEMO').Value:=qryCsh550.FieldByName('C510A_015').Value;
    if qryCsh550.FieldByName('C510A_005').Value=0 then   //收入
    begin
      ADataSet.FieldByName('AMT01').Value:=qryCsh550.FieldByName('C510A_009').Value;
      ADataSet.FieldByName('AMT02').AsString:='';
    end else
    if qryCsh550.FieldByName('C510A_005').Value=1 then   //支出
    begin
      ADataSet.FieldByName('AMT01').AsString:='';
      ADataSet.FieldByName('AMT02').Value:=qryCsh550.FieldByName('C510A_009').Value;
    end;
    ADataSet.FieldByName('AMT03').Value:=qryCsh550.FieldByName('C510A_013').Value;
    ADataSet.Post;
    qryCsh550.Next;
  end;
  //收入、支出合计
  AIncome:=GetAccAmount(AccNo, dtpStartDate.Date, dtpEndDate.Date, 2);
  APayment:=GetAccAmount(AccNo, dtpStartDate.Date, dtpEndDate.Date, 3);
  ADataSet.EnableControls;
end;

procedure TCshW00_01Form.sbSearchClick(Sender: TObject);
var
  AccNo:Integer;
  AFromDate,AToDate:TDateTime;
begin
//查询
  AFromDate:=dtpStartDate.Date;
  AToDate:=dtpEndDate.Date;
  if (dtpStartDate.Text='') or (dtpEndDate.Text='') then
  begin
    ShowMsg('UMS10000156');  //起始日期或结束日期不能为空