frmmainunit.~pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmMainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, Menus, ImgList, ComCtrls, ToolWin;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    foreC1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    StatusBar1: TStatusBar;
    N6: TMenuItem;
    ToolButton6: TToolButton;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
    procedure initData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses dmUnit, frmConfigUnit, frmLoginUnit, frmKNDUnit, frmFYListUnit,
  frmUP_A1Unit, frmUP_A2Unit, frmDXUnit, frmFFUnit;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  iniConfig:Tinifile;
  Alias,user,pwd,db,vConnect:string;
begin
  try
      iniConfig:=Tinifile.Create('windowsc.ini');
      Alias:=iniConfig.ReadString('server','ip','0');
      user:=iniConfig.ReadString('server','user','0');
      pwd:=iniConfig.ReadString('server','pwd','0');
      pwd:=dm.Dec(pwd);
      db:=iniConfig.ReadString('server','db','0');

          if Alias='0' then
            begin
            if not assigned(frmCOnfig) then
                frmConfig:=tfrmConfig.Create(self);
                frmConfig.flag:=False;
              frmConfig.ShowModal;
              //对ini文件进行设置后退出。
            end;
    except
        showMessage('请选配制连接');
        if not assigned(frmCOnfig) then
         frmConfig:=tfrmConfig.Create(self);
         frmConfig.flag:=False;
        frmConfig.ShowModal;
    end;

    if not dm.Login then
     begin
       if not assigned(frmCOMP) then
          frmCOMP:=TfrmCOMP.create(self);
          vConnect:='Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=True;User ID='
             +user+' ;Initial Catalog=SUNSystem;Data Source='+Alias;
          dm.ADOConnection1.ConnectionString:=vConnect;   
       frmCOMP.showModal;
     end;

     if not dm.Login then
     begin
       if not assigned(frmCOMP) then
          frmCOMP:=TfrmCOMP.create(self);
       frmCOMP.showModal;
     end;
   if not dm.Login then  //如果没有登入，则退出
     application.Terminate;

    caption:=caption+'--帐套['+dm.zt+']';
   if dm.Login then //???????
      begin
       vConnect:='Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=True;User ID='
             +user+' ;Initial Catalog=DB_'+dm.zt+';Data Source='+Alias;
       dm.ADOConnection2.Connected:=False;
       dm.ADOConnection2.ConnectionString:=vConnect;
       dm.ADOConnection2.Connected:=True;
      end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  if not assigned(frmconfig) then
     frmConfig:=tfrmConfig.create(self);
  frmConfig.showModal;   
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  //if application.MessageBox('','',)
  close;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
  N4.Click;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
  N5.Click;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if dm.ADOConnection2.Connected then

    initData;
end;

procedure TForm1.initData;
var
  sql:string;
begin

   { if not  dm.ADOConnection2.Connected then exit;
    sql:=' create table #FCST( '
        +' PRD_NO varchar(30), '
        +' QTY    numeric(28,8),'
        +' EST_DD    DATETIME,'
        +' REM    varchar(100) '
        +' )';

     dm.qryExecute(sql);

     sql:=' create table #FFF( '
        +' PRD_NO varchar(30), '
        +' QTY    numeric(28,8),'
        +' EST_DD    DATETIME,'
        +' CUS_WH    varchar(100) '
        +' )';

     dm.qryExecute(sql);
     }
     sql:='create table #FF( '
       +' COL001 varchar(30), '
       +' COL002 numeric(28,8), '
       +' COL003 numeric(28,8), '
       +' COL004 numeric(28,8), '
       +' COL005 numeric(28,8), '
       +' COL006 numeric(28,8), '
       +' COL007 numeric(28,8), '
       +' COL008 numeric(28,8), '
       +' COL009 numeric(28,8), '
       +' COL010 numeric(28,8), '
       +' COL011 numeric(28,8), '
       +' COL012 numeric(28,8), '
       +' SAL_NO varchar(30),'
       +' SAL_NAME varchar(30) )';
    dm.qryExecute(sql);   
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  N2.Click;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  N6.Click;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
foreC1.Click;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if not assigned(frmknd) then
     frmKND:=tfrmKND.create(self);
  frmKND.show;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
    if not assigned(frmUP_A1) then
     frmUP_A1:=TfrmUP_A1.create(self);
  frmUP_A1.show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
    if not assigned(frmUP_A2) then
     frmUP_A2:=TfrmUP_A2.create(self);
  frmUP_A2.show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  if not assigned(frmFYList) then
     frmFYList:=TfrmFYList.create(self);
  frmFYList.show;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
   if not assigned(frmDX) then
     frmDX:=TfrmDX.create(self);
  frmDX.show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  if not assigned(frmFF) then
     frmFF:=TfrmFF.create(self);
  frmFF.show;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
     if not assigned(frmSK) then
     frmSK:=TfrmSK.create(self);
  frmSK.show;
end;

end.