sppssq.pas

一个比较实用的配送管理系统,Delphi+SQL开发

unit sppssq;

interface

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

type
  TForm90 = class(TForm)
    CoolBar1: TCoolBar;
    ImageList2: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    StatusBar1: TStatusBar;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Image1: TImage;
    N15: TMenuItem;
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure SetHintInfo(Sender: TObject);
    { Public declarations }
  end;

var
  Form90: TForm90;
  czymc : String;
implementation

uses pssqgl, psshxt, pskpxt, sppscs,xtdl1, tjyusc, spjcxxgl, khxxgl, kcgl;

{$R *.dfm}

procedure TForm90.N13Click(Sender: TObject);
begin
  Application.CreateForm(TForm29,Form29);
  Form29.ShowModal;
  Form29.Free;
end;

procedure TForm90.N14Click(Sender: TObject);
begin
  Application.CreateForm(TForm31,Form31);
  Form31.ShowModal;
  Form31.Free;
end;

procedure TForm90.N2Click(Sender: TObject);
begin
  Application.CreateForm(TForm32,Form32);
  Form32.ShowModal;
  Form32.Free;
end;

procedure TForm90.N7Click(Sender: TObject);
begin
  Application.CreateForm(TForm56,Form56);
  Form56.ShowModal;
  Form56.Free;
end;

procedure TForm90.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[5].Text := FormatDateTime('yyyy-mm-dd',Now);
  StatusBar1.Panels[7].Text := FormatDateTime('hh:mm:ss',Now);
  Application.CreateForm(TForma,Forma);
  Forma.ShowModal;
  Forma.Free;
end;

procedure TForm90.N9Click(Sender: TObject);
begin
  Application.CreateForm(TForm4,Form4);
  Form4.ShowModal;
  Form4.Free;
end;

procedure TForm90.N4Click(Sender: TObject);
begin
  Application.CreateForm(TForm7,Form7);
  Form7.ShowModal;
  Form7.Free;
end;

procedure TForm90.N5Click(Sender: TObject);
begin
  Application.CreateForm(TForm9,Form9);
  Form9.ShowModal;
  Form9.Free;
end;

procedure TForm90.N8Click(Sender: TObject);
begin
  Application.CreateForm(TForm1,Form1);
  Form1.ShowModal;
  Form1.Free;
end;

procedure TForm90.N15Click(Sender: TObject);
begin
  Close;
end;

procedure TForm90.FormCreate(Sender: TObject);
begin
  Application.OnHint :=SetHintInfo;
end;

procedure TForm90.SetHintInfo(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := Application.Hint;
end;

end.