mainform.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons, ToolWin, ComCtrls;

type
  Tmain_form = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    MainMenu1: TMainMenu;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    MainMenu2: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem21: TMenuItem;
    MenuItem22: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem25: TMenuItem;
    MenuItem26: TMenuItem;
    MenuItem27: TMenuItem;
    MenuItem28: TMenuItem;
    MenuItem29: TMenuItem;
    MenuItem30: TMenuItem;
    MenuItem31: TMenuItem;
    MenuItem32: TMenuItem;
    MenuItem33: TMenuItem;
    MenuItem34: TMenuItem;
    MenuItem35: TMenuItem;
    MenuItem36: TMenuItem;
    MenuItem37: TMenuItem;
    MenuItem38: TMenuItem;
    MenuItem39: TMenuItem;
    MenuItem40: TMenuItem;
    MenuItem41: TMenuItem;
    MenuItem42: TMenuItem;
    MenuItem43: TMenuItem;
    MenuItem65: TMenuItem;
    MenuItem66: TMenuItem;
    MenuItem67: TMenuItem;
    MenuItem68: TMenuItem;
    MenuItem69: TMenuItem;
    MenuItem70: TMenuItem;
    MenuItem71: TMenuItem;
    MenuItem72: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N79Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_form: Tmain_form;

implementation

uses partinfo, maintain, machinetest, partsell, partin, partout, Unit_wxp,
  partorder, wxp_dm, contract, login, pfm_rightset, pfm_fdlogin,
   pfm_accept, pfm_changepass, databack, initialize, complaint,
  basepay_base, bonusratio, bonusratio1, office, foryearbonus, visitold,
  stuff, stdtable, yearratio, saleratio, mainpay, officepay, monthdeliver,
  ybnsdeliver, ybnsdeliver1, salededuct, saledistribute, fare, cstm,
  z_machine_in, contract_order, contract_tract, contract_cjd, std_machine,
  z_machine_out, contract_cjd_ys, transit_proxy, officemanage, Unit_cjqk,
  Unit_thqk, Unit_cjyfk, Unit_hkhs, reregister, databack_nowuse, datacorver,
  z_machine_innew
  ;

{$R *.dfm}

procedure Tmain_form.N2Click(Sender: TObject);
begin
        //form_partinfo.showmodal

end;

procedure Tmain_form.N13Click(Sender: TObject);
begin
     unit_wxp.SearchSql :='select * from pub_z_part where ';
     unit_wxp.finalsql:='select * from pub_z_part'  ;
     //dm_wxp.table1.close;

     //dm_wxp.table1.sql.clear;
     //dm_wxp.table1.sql.add('select * from pub_z_part');
     //dm_wxp.table1.open;
     if not assigned(Form_partinfo) then
       Application.CreateForm(TForm_partinfo, Form_partinfo);

     form_partinfo.show ;
end;

procedure Tmain_form.N12Click(Sender: TObject);
begin
     if not assigned(form_maintain) then
       Application.CreateForm(Tform_maintain, form_maintain);
     unit_wxp.FinalSql :='select * from pub_z_maintain';
     unit_wxp.SearchSql :='select * from pub_z_maintain where ';
     form_maintain.show ;
end;

procedure Tmain_form.N14Click(Sender: TObject);
begin
     if not assigned(Form_machinetest) then
       Application.CreateForm(TForm_machinetest, Form_machinetest);
     unit_wxp.FinalSql :='select * from pub_z_test ';
     unit_wxp.SearchSql :='select * from pub_z_test where ';

     form_machinetest.show ;
end;

procedure Tmain_form.N15Click(Sender: TObject);
begin
     unit_wxp.SearchSql :='select * from pub_z_partsell where 类型=''销售'' and ';
     unit_wxp.finalsql:= 'select * from pub_z_partsell where 类型=''销售''';
     if not assigned(Form_partsell) then
       Application.CreateForm(TForm_partsell, Form_partsell);

     unit_wxp.sellstyle:='维修' ;

     unit_wxp.sellstyle:='销售'  ;
     form_partsell.show ;
     Form_partsell.Caption :='配件销售情况';
     Form_partsell.TabSheet1.Caption :='配件销售登记';
     Form_partsell.TabSheet2.Caption :='配件销售查询打印';
     Form_partsell.Query1 .Active :=false;
     Form_partsell.Query1.SQL.Clear ;
     Form_partsell.Query1.SQL.Add('select * from pub_z_partsell where 类型=''销售'' ');
     Form_partsell.Query1.Active :=true;
end;

procedure Tmain_form.N16Click(Sender: TObject);
begin
     unit_wxp.SearchSql :='select * from pub_z_partsell where 类型=''调拨'' and ';
     unit_wxp.finalsql:='select * from pub_z_partsell where 类型=''调拨'''  ;
     //dm_wxp.table1.close;

     //dm_wxp.table1.sql.clear;
     //dm_wxp.table1.sql.add('select * from pub_z_partsell');
     //dm_wxp.table1.open;
     if not assigned(Form_partsell) then
       Application.CreateForm(TForm_partsell, Form_partsell);

     form_partsell.show ;
     Form_partsell.Caption :='配件调拨情况';
     Form_partsell.TabSheet1.Caption :='配件调拨登记';
     Form_partsell.TabSheet2.Caption :='配件调拨查询打印';

     Form_partsell.Query1.Active :=false;
     Form_partsell.Query1.SQL.Clear ;
     Form_partsell.Query1.SQL.Add('select * from pub_z_partsell where 类型=''调拨'' ');
     Form_partsell.Query1.Active :=true;
     unit_wxp.sellstyle:='调拨' ;
end;

procedure Tmain_form.N17Click(Sender: TObject);
begin
     unit_wxp.SearchSql :='select * from pub_z_partsell where 类型=''三包''  and ' ;
     unit_wxp.finalsql:= 'select * from pub_z_partsell where 类型=''三包''';
     //dm_wxp.table1.close;
     //dm_wxp.table1.sql.clear;
     //dm_wxp.table1.sql.add('select * from pub_z_partsell');
     //dm_wxp.table1.open;
     if not assigned(Form_partsell) then
       Application.CreateForm(TForm_partsell, Form_partsell);
     unit_wxp.sellstyle:='三包';
     form_partsell.show ;
     Form_partsell.Caption :='配件三包情况';
     Form_partsell.TabSheet1.Caption :='配件三包登记';
     Form_partsell.TabSheet2.Caption :='配件三包查询打印';

     Form_partsell.Query1.Active :=false;
     Form_partsell.Query1.SQL.Clear ;
     Form_partsell.Query1.SQL.Add('select * from pub_z_partsell where 类型=''三包'' ');
     Form_partsell.Query1.Active :=true;
end;

procedure Tmain_form.N19Click(Sender: TObject);
begin
     unit_wxp.SearchSql :='select * from pub_z_partin where ';
     unit_wxp.finalsql:= 'select * from pub_z_partin';
     if not assigned(Form_partin) then
       Application.CreateForm(TForm_partin, Form_partin);
     form_partin.show ;
end;

procedure Tmain_form.N20Click(Sender: TObject);
begin
  unit_wxp.SearchSql :='select * from pub_z_partout where ';
  unit_wxp.finalsql:='select * from pub_z_partout';
  if not assigned(Form_partout) then
    Application.CreateForm(TForm_partout, Form_partout);
  form_partout.show ;
end;

procedure Tmain_form.N22Click(Sender: TObject);
begin
    unit_wxp.SearchSql :='select * from pub_z_partorder where ';
    unit_wxp.finalsql:= 'select * from pub_z_partorder';

    if not assigned(Form_partorder) then
     Application.CreateForm(TForm_partorder, Form_partorder);



     form_partorder.show;
end;

procedure Tmain_form.N23Click(Sender: TObject);
begin
  if not assigned(Form_contract) then
  Application.CreateForm(TForm_contract, Form_contract);
   unit_wxp.FinalSql :='select * from pub_z_contract';
   unit_wxp.SearchSql :='select * from pub_z_contract where ';
    Form_contract.show;
end;

procedure Tmain_form.N24Click(Sender: TObject);
var
test:boolean;
i,j:integer;
begin

   //unit_wxp.myOffice :='总部'; //调试
   //menu:=mainmenu;
   //exit;
   Application.CreateForm(Tfm_fdlogin, fm_fdlogin);
   if fm_fdlogin.showmodal=idok then
   begin
       if unit_wxp.myOffice ='总部' then
       begin
       //menu:=mainmenu;
       if mUsername='admin' then   //超级用户
       begin
       for i:=0 to mainmenu.items.count-1 do
       begin
            mainmenu.items[i].Visible :=true;
            for j:=0 to mainmenu.items.items[i].count-1 do
            begin

                mainmenu.items.items[i].items[j].Visible :=true;
                mainmenu.items.items[i].items[j].enabled:=true;
            end;
        end;
        menu:=mainmenu;
       end
       else
       begin
       for i:=0 to mainmenu.items.count-1 do
        begin
            if mainmenu.Items[i].Caption='帮助' then
            begin
                continue;
            end;
            for j:=0 to mainmenu.items.items[i].count-1 do
            begin
                mainmenu.items.items[i].items[j].enabled:=false;
                //showmessage(mainmenu.items.items[i].items[j].caption);

                if muserright.values[mainmenu.items.items[i].items[j].caption]='1' then
                begin
                    mainmenu.items.items[i].items[j].Enabled:=true;
                end;
                if (mainmenu.items.items[i].items[j].caption='退出') or
                (mainmenu.items.items[i].items[j].caption='重新登录') or
                (mainmenu.items.items[i].items[j].caption='修改密码') then
                begin
                    mainmenu.items.items[i].items[j].Enabled:=true;
                end;
            end;
        end;
        menu:=mainmenu;
       end;
       end
       else
       begin

       menu:=mainmenu;
       if mUsername='admin' then   //超级用户
       begin
       for i:=0 to mainmenu.items.count-1 do
       begin
            if (mainmenu.Items[i].Caption='佣金管理') then
            begin
               mainmenu.Items[i].Visible :=false;
               continue;
            end;

            if (mainmenu.Items[i].Caption='机构管理') then
            begin
                 mainmenu.Items[i].Visible :=false;
                 continue;