unit1.pas

一套不错的客户系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, ToolWin, ExtCtrls, Menus, StdActns,
  ActnList, ImgList, DBCtrls, Grids, DBGrids, DBTables;

type
  TMAINform = class(TForm)
    CONN: TADOConnection;
    ImageList1: TImageList;
    ActionList1: TActionList;
    About: TAction;
    close1: TAction;
    MainMenu1: TMainMenu;
    D1: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N4: TMenuItem;
    N27: TMenuItem;
    N11: TMenuItem;
    N22: TMenuItem;
    N12: TMenuItem;
    C2: TMenuItem;
    R1: TMenuItem;
    I1: TMenuItem;
    O1: TMenuItem;
    Q2: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton12: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    sys: TADOQuery;
    N1: TMenuItem;
    Asys: TAction;
    sys_OUT: TADOTable;
    sys_IN: TADOTable;
    SYS_money: TADOTable;
    D_in: TDataSource;
    D_money: TDataSource;
    D_sys: TDataSource;
    D_rkd: TDataSource;
    D_rkmx: TDataSource;
    D_kskh: TDataSource;
    D_rs: TDataSource;
    D_sfk: TDataSource;
    D_ckd: TDataSource;
    D_OUT: TDataSource;
    ToolButton1: TToolButton;
    A_rs: TADOTable;
    sqrk: TAction;
    M_in: TAction;
    M_out: TAction;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    M_cx: TAction;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    KHKS: TAction;
    D_kc: TDataSource;
    A_splb: TADOTable;
    D_splb: TDataSource;
    D_kc_rk: TDataSource;
    kc: TAction;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ck: TAction;
    Q_kc_rk: TADOQuery;
    A_sqlba: TADOTable;
    D_sqlba: TDataSource;
    A_rkd: TADOQuery;
    D_temp: TDataSource;
    Q_rkmx: TADOQuery;
    A_sfk: TADOQuery;
    Q_temp: TADOQuery;
    Q_kc_rkmx: TADOQuery;
    D_KC_rkmx: TDataSource;
    Q_kc_ckmx: TADOQuery;
    D_kc_ckmx: TDataSource;
    Q_kc: TADOQuery;
    A_ckd: TADOQuery;
    A_ckmx: TADOQuery;
    D_ckmx: TDataSource;
    D_kc_ck: TDataSource;
    Q_kc_ck: TADOQuery;
    A_khks: TADOQuery;
    khkszy: TAction;
    ToolButton11: TToolButton;
    D_ckd_sfk: TDataSource;
    Q_ckd_sfk: TADOQuery;
    D_rkd_sfk: TDataSource;
    Q_rkd_sfk: TADOQuery;
    D_sfk_kh: TDataSource;
    Q_sfk_kh: TADOQuery;
    Q_kcxz: TADOQuery;
    D_kcxz: TDataSource;
    Q_allrk: TADOQuery;
    D_allrk: TDataSource;
    Q_allck: TADOQuery;
    D_allck: TDataSource;
    Q_allsfk: TADOQuery;
    D_allsfk: TDataSource;
    D_khkszy: TDataSource;
    Q_khkszy: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AsysExecute(Sender: TObject);
    procedure AboutExecute(Sender: TObject);
    procedure close1Execute(Sender: TObject);
    procedure sprkExecute(Sender: TObject);
    procedure sqrkExecute(Sender: TObject);
    procedure M_inExecute(Sender: TObject);
    procedure M_outExecute(Sender: TObject);
    procedure M_cxExecute(Sender: TObject);
    procedure KHKSExecute(Sender: TObject);
    procedure kcExecute(Sender: TObject);
    procedure ckExecute(Sender: TObject);
    procedure khkszyExecute(Sender: TObject);
    procedure A_ckdAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MAINform: TMAINform;
  sysname:string;
  custom_window:string;
  lszh_no:string;
implementation

uses Unit2, Unit3, Unit5, Unit10, Unit11, Unit13, Unit15, Unit12, Unit6,
  Unit20, Unit21, Unit22;

{$R *.dfm}

procedure TMAINform.FormShow(Sender: TObject);
begin
MAINform.Caption:=sysname;
F_login.showmodal;
end;

procedure TMAINform.FormCreate(Sender: TObject);
begin
height:=600;
width:=800;
sysname:=mainform.sys.fieldbyname('单位名称').asstring;
A_rs.FieldByName('出生日期').EditMask:='!9999/99/00;1;_';
A_rs.FieldByName('录用时间').EditMask:='!9999/99/00;1;_';
A_sfk.FieldByName('日期').EditMask:='!9999/99/00;1;_';
A_rkd.FieldByName('进货日期').EditMask:='!9999/99/00;1;_';
end;

procedure TMAINform.AsysExecute(Sender: TObject);
begin
fsys.showmodal;
end;

procedure TMAINform.AboutExecute(Sender: TObject);
begin
FAbout.showmodal;
end;

procedure TMAINform.close1Execute(Sender: TObject);
begin
close;
end;

procedure TMAINform.sprkExecute(Sender: TObject);
begin
//Application.CreateForm(TF_rkd_Z, F_rkd_Z);
F_rkd_Z.showmodal;
end;

procedure TMAINform.sqrkExecute(Sender: TObject);
begin
F_rkd_z.ShowModal;
end;

procedure TMAINform.M_inExecute(Sender: TObject);
begin
 mainform.sys.close;
 mainform.sys.Open;
if copy(mainform.sys.fieldbyname('流水账号').AsString,4,8)=formatdatetime('yyyymmdd',now) then
  begin
    lszh_no:='MO_'+floattostr(strtofloat(copy(mainform.sys.fieldbyname('流水账号').AsString,4,12))+1);
  end else lszh_no:='MO_'+formatdatetime('yyyymmdd',now)+'0001';
 mainform.sys.Edit;
 mainform.sys.fieldbyname('流水账号').AsString:=lszh_no;
 mainform.sys.post;
 mainform.A_sfk.Append;
 mainform.A_sfk.FieldByName('流水账号').AsString:=lszh_no;
 mainform.A_sfk.FieldByName('性质').asstring:='收款';
 F_sfk.DBComboBox1.Color:=clgreen;
 F_sfk.showmodal;
end;

procedure TMAINform.M_outExecute(Sender: TObject);
begin
 mainform.sys.close;
 mainform.sys.Open;
if copy(mainform.sys.fieldbyname('流水账号').AsString,4,8)=formatdatetime('yyyymmdd',now) then
  begin
    lszh_no:='MO_'+floattostr(strtofloat(copy(mainform.sys.fieldbyname('流水账号').AsString,4,12))+1);
  end else lszh_no:='MO_'+formatdatetime('yyyymmdd',now)+'0001';
 mainform.sys.Edit;
 mainform.sys.fieldbyname('流水账号').AsString:=lszh_no;
 mainform.sys.post;
mainform.A_sfk.Append;
mainform.A_sfk.FieldByName('流水账号').AsString:=lszh_no;
mainform.A_sfk.FieldByName('性质').asstring:='付款';
F_sfk.DBComboBox1.Color:=clred;
F_sfk.showmodal;
end;

procedure TMAINform.M_cxExecute(Sender: TObject);
begin
F_sfk_Z.showmodal;
end;

procedure TMAINform.KHKSExecute(Sender: TObject);
begin
F_khksxz.DBEdit1.Visible:=false;
F_khksxz.BitBtn1.Visible:=false;
F_khksxz.showmodal;
end;

procedure TMAINform.kcExecute(Sender: TObject);
begin
  Application.CreateForm(TF_kc, F_kc);
  F_kc_z.showmodal;
end;

procedure TMAINform.ckExecute(Sender: TObject);
begin
  Application.CreateForm(TF_ckd_z, F_ckd_z);
  F_ckd_z.showmodal;
end;

procedure TMAINform.khkszyExecute(Sender: TObject);
begin
 Application.CreateForm(TF_khkszy, F_khkszy);
 F_khkszy.showmodal;
end;

procedure TMAINform.A_ckdAfterOpen(DataSet: TDataSet);
begin
A_ckd.FieldByName('出库日期').EditMask:='!9999/99/00;1;_';
end;

end.