main_unit.pas

网上搜索来的进销存源码

unit main_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, ExtCtrls, ImgList, StdCtrls, Buttons,
  jpeg, DB, ADODB, inifiles, WinSkinData, WinSkinStore;

type
  Tmain_form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N17: TMenuItem;
    N33: TMenuItem;
    N24: TMenuItem;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    ImageList2: TImageList;
    N29: TMenuItem;
    N30: TMenuItem;
    Timer1: TTimer;
    Splitter1: TSplitter;
    Panel2: TPanel;
    N31: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    ADOQuery1: TADOQuery;
    N6: TMenuItem;
    N20: TMenuItem;
    N25: TMenuItem;
    GroupBox1: TGroupBox;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    N28: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    SkinData1: TSkinData;
    N50: TMenuItem;
    N51: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyQuit;
    procedure SetSkin;
    procedure ReadSkin;
    procedure SetDefaultCheckedMenu;

  public
    { Public declarations }
    procedure ShowMenu;
  end;

var
  main_form: Tmain_form;

implementation

uses khzl_unit, gyshzl_unit, spfl_unit, spzl_unit, dw_unit, sfkfs_unit,
  jh_unit, jhth_unit, xsh_unit, khth_unit, yg_unit, jh_find_unit, dhjm_unit,
  jh_th_unit, xtcsh_unit, UserSet_Unit, jbzl_print_unit, kc_unit, fx_unit,
  xshd_find_unit, About_Unit, Quit_Unit, Login_Unit, Qx_unit, Backup_Unit,
  Restore_Unit, cbhc_unit, Reg_Unit;

{$R *.dfm}

procedure Tmain_form.N8Click(Sender: TObject);
begin
  khzl_form := Tkhzl_form.Create(self);
  khzl_form.Show;
end;

procedure Tmain_form.N10Click(Sender: TObject);
begin
  gyshzl_form := Tgyshzl_form.Create(self);
  gyshzl_form.Show;
end;

procedure Tmain_form.N12Click(Sender: TObject);
begin
  spfl_form := Tspfl_form.create(self);
  spfl_form.show;
end;

procedure Tmain_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyQuit;
end;

procedure Tmain_form.N14Click(Sender: TObject);
begin
  if not Assigned(spzl_form) then
  begin
    spzl_form := Tspzl_form.create(self);
  end;
  spzl_form.show;
end;

procedure Tmain_form.N13Click(Sender: TObject);
begin
  if not Assigned(dw_form) then
  begin
    dw_form := Tdw_form.create(self);
  end;
  dw_form.show;
end;

procedure Tmain_form.N16Click(Sender: TObject);
begin
  if not Assigned(sfkfs_form) then
  begin
    sfkfs_form := Tsfkfs_form.create(self);
  end;
  sfkfs_form.show;

end;

procedure Tmain_form.N18Click(Sender: TObject);
begin
  if not Assigned(jh_form) then
  begin
    jh_form := Tjh_form.create(self);
  end;
  jh_form.show;
end;

procedure Tmain_form.N19Click(Sender: TObject);
begin
  if not Assigned(jh_th_form) then
  begin
    jh_th_form := Tjh_th_form.Create(self);
  end;
  jh_th_form.Show;
end;

procedure Tmain_form.N21Click(Sender: TObject);
begin
  if not Assigned(xsh_form) then
  begin
    xsh_form := Txsh_form.create(self);
  end;
  xsh_form.show;
end;

procedure Tmain_form.N22Click(Sender: TObject);
begin
  if not Assigned(khth_form) then
  begin
    khth_form := Tkhth_form.Create(self);
  end;
  khth_form.Show;
end;

procedure Tmain_form.N9Click(Sender: TObject);
begin
  if not Assigned(yg_form) then
  begin
    yg_form := Tyg_form.create(self);
  end;
  yg_form.show;
end;

procedure Tmain_form.N17Click(Sender: TObject);
begin
  if not Assigned(jh_find_Form) then
  begin
    jh_find_form := Tjh_find_form.create(self);
  end;
  jh_find_form.Show;
end;

procedure Tmain_form.ToolButton8Click(Sender: TObject);
begin
  MyQuit;
end;

procedure Tmain_form.N23Click(Sender: TObject);
begin
  if not Assigned(jbzl_print_form) then
  begin
    jbzl_print_form := Tjbzl_print_form.create(self);
  end;
  jbzl_print_form.show;
end;

procedure Tmain_form.N24Click(Sender: TObject);
begin
  if not Assigned(kc_form) then
  begin
    kc_form := Tkc_form.create(self);
  end;
  kc_form.show;
end;

procedure Tmain_form.ToolButton6Click(Sender: TObject);
begin
  if not Assigned(fx_form) then
  begin
    fx_form := Tfx_form.create(self);
  end;
  fx_form.show;
end;

procedure Tmain_form.N33Click(Sender: TObject);
begin
  if not Assigned(xshd_find_form) then
  begin
    xshd_find_form := Txshd_find_form.create(self);
  end;
  xshd_find_form.show;
end;

procedure Tmain_form.SpeedButton1Click(Sender: TObject);
begin
  khzl_form := Tkhzl_form.Create(self);
  khzl_form.Show;
end;

procedure Tmain_form.SpeedButton2Click(Sender: TObject);
begin
  if not Assigned(yg_form) then
  begin
    yg_form := Tyg_form.create(self);
  end;
  yg_form.show;
end;

procedure Tmain_form.SpeedButton3Click(Sender: TObject);
begin
  gyshzl_form := Tgyshzl_form.Create(self);
  gyshzl_form.Show;
end;

procedure Tmain_form.SpeedButton4Click(Sender: TObject);
begin
  spfl_form := Tspfl_form.create(self);
  spfl_form.show;
end;

procedure Tmain_form.SpeedButton5Click(Sender: TObject);
begin
  if not Assigned(dw_form) then
  begin
    dw_form := Tdw_form.create(self);
  end;
  dw_form.show;
end;

procedure Tmain_form.SpeedButton6Click(Sender: TObject);
begin
  if not Assigned(spzl_form) then
  begin
    spzl_form := Tspzl_form.create(self);
  end;
  spzl_form.show;
end;

procedure Tmain_form.SpeedButton7Click(Sender: TObject);
begin
  if not Assigned(sfkfs_form) then
  begin
    sfkfs_form := Tsfkfs_form.create(self);
  end;
  sfkfs_form.show;
end;

procedure Tmain_form.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton1.Caption;
end;

procedure Tmain_form.SpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton2.Caption;
end;

procedure Tmain_form.SpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton3.Caption;  
end;

procedure Tmain_form.SpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton4.Caption;
end;

procedure Tmain_form.SpeedButton5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton5.Caption;
end;

procedure Tmain_form.SpeedButton6MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton6.Caption;
end;

procedure Tmain_form.SpeedButton7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  StatusBar1.Panels[1].Text := SpeedButton7.Caption;
end;

procedure Tmain_form.MyQuit;
begin
  if application.MessageBox('确实要退出吗?', '退出', Mb_YesNo or Mb_IconQuestion) = IdYes then
  begin
    if not Assigned(Quit_Form) then
    begin
      Quit_Form := Tquit_Form.Create(self);
    end;
    Quit_Form.BackupDataBase;
    Quit_Form.Showmodal;
  end;
end;

procedure Tmain_form.N29Click(Sender: TObject);
begin
  MyQuit;
end;

procedure Tmain_form.N30Click(Sender: TObject);
begin
  N30.Checked := not N30.Checked;
  if N30.Checked = True then
  begin
    Panel1.Visible := True;
    Panel2.Visible := True;
  end
  else
  begin
    Panel1.Visible := False;
    Panel2.Visible := False;
  end;
end;

procedure Tmain_form.Timer1Timer(Sender: TObject);
var
  TmpStr1, TmpStr2: string;
begin
  TmpStr1 := '当前时间：';
  TmpStr2 := FormatDateTime('yyyy-mm-dd-hh-mm-ss', Now);
  StatusBar1.Panels[3].Text := TmpStr1 + Copy(TmpStr2, 1, 4) + '年' + Copy(TmpStr2, 6, 2) + '月' + Copy(TmpStr2, 9, 2) + '日' + Copy(TmpStr2, 12, 2) + '时' + Copy(TmpStr2, 15, 2) + '分' + Copy(TmpStr2, 18, 2) + '秒';
end;

procedure Tmain_form.N31Click(Sender: TObject);
begin
  N31.Checked := not N31.Checked;
  if N31.Checked = True then
  begin
    CoolBar1.Visible := True;
  end
  else
  begin
    CoolBar1.Visible := False;
  end;
end;

procedure Tmain_form.N37Click(Sender: TObject);
begin
  if not Assigned(Login_Form) then
  begin
    Login_Form := TLogin_Form.Create(self);
  end;
  Login_Form.ShowModal;
  Login_Form.PassWord_Edit.Clear;
end;

procedure Tmain_form.N42Click(Sender: TObject);
begin
  Application.MessageBox('对不起，本软件暂时还没有帮助！', '提示', Mb_ok or Mb_Iconwarning);
end;

procedure Tmain_form.N43Click(Sender: TObject);
begin
  if not Assigned(About_Form) then
  begin
    About_Form := TAbout_Form.Create(self);
  end;
  About_Form.show;
end;

procedure Tmain_form.N26Click(Sender: TObject);
begin
  if not Assigned(xtcsh_form) then
  begin
    xtcsh_form := Txtcsh_form.create(self);
  end;
  xtcsh_form.show;
end;

procedure Tmain_form.N27Click(Sender: TObject);
begin
  if not Assigned(userset_form) then
  begin
    userset_form := Tuserset_form.create(self);
  end;
  userset_form.show;
end;

procedure Tmain_form.N38Click(Sender: TObject);
begin
  if not Assigned(Qx_Form) then
  begin