spxsgl.pas

用delphi编写的销售管理系统

unit spxsgl;

interface

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

type
  TForm89 = class(TForm)
    ImageList2: TImageList;
    CoolBar1: TCoolBar;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    N8: TMenuItem;
    R1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    SpeedButton11: TSpeedButton;
    SpeedButton10: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ToolButton3: TToolButton;
    SpeedButton7: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton4: TToolButton;
    SpeedButton6: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    ListView1: TListView;
    Splitter1: TSplitter;
    Panel2: TPanel;
    StatusBar3: TStatusBar;
    Image1: TImage;
    SpeedButton12: TSpeedButton;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form89: TForm89;
  czy: string = '';
implementation

uses xsglxt, xsthxt, khdhxt, spxscx, spxsthcx, xtdl,rxsbb,yxsbb,dspxs,spjcxxgl,
  khxxgl, tjyusc,kcgl, khwldzd, cqfkyj, khwljkgl;

{$R *.dfm}

procedure TForm89.N8Click(Sender: TObject);
begin
  Application.CreateForm(TForm60,Form60);
  Form60.ShowModal;
  Form60.Free;
end;

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

procedure TForm89.MenuItem2Click(Sender: TObject);
begin
  Application.CreateForm(TForm24,Form24);
  Form24.ShowModal;
  Form24.Free;
end;

procedure TForm89.MenuItem3Click(Sender: TObject);
begin
  Application.CreateForm(TForm27,Form27);
  Form27.ShowModal;
  Form27.Free;
end;

procedure TForm89.MenuItem4Click(Sender: TObject);
begin
  Application.CreateForm(TForm22,Form22);
  Form22.ShowModal;
  Form22.Free;
end;

procedure TForm89.MenuItem6Click(Sender: TObject);
begin
  Application.CreateForm(TForm54,Form54);
  Form54.ShowModal;
  Form54.Free;
end;

procedure TForm89.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_ESCAPE then
    Close;
end;

procedure TForm89.N1Click(Sender: TObject);
begin
  Application.CreateForm(TForm61,Form61);
  Form61.ShowModal;
  Form61.Free;
end;

procedure TForm89.N2Click(Sender: TObject);
begin
  Application.CreateForm(TForm62,Form62);
  Form62.ShowModal;
  Form62.Free;
end;

procedure TForm89.N3Click(Sender: TObject);
begin
  Application.CreateForm(TForm63,Form63);
  Form63.ShowModal;
  Form63.Free;
end;

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

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

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

procedure TForm89.N10Click(Sender: TObject);
begin
  Application.CreateForm(TForm48,Form48);
  Form48.ShowModal;
  Form48.Free;
end;

procedure TForm89.N11Click(Sender: TObject);
begin
  Application.CreateForm(TForm52,Form52);
  Form52.ShowModal;
  Form52.Free;
end;

procedure TForm89.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm89.ListView1DblClick(Sender: TObject);
begin
  if ListView1.Selected<>Nil then
  begin
    Case ListView1.Selected.ImageIndex of
      0: N5.OnClick(Sender);
      1: N6.OnClick(Sender);
      2: N7.OnClick(Sender);
      3: N14.OnClick(Sender);
      4: MenuItem2.OnClick(Sender);
      5: MenuItem3.OnClick(Sender);
      6: MenuItem4.OnClick(Sender);
      7: N16.OnClick(Sender);
      8: MenuItem6.OnClick(Sender);
      9: N8.OnClick(Sender);
      10: N10.OnClick(Sender);
      11: N11.OnClick(Sender);
      12: N1.OnClick(Sender);
      13: N2.OnClick(Sender);
      14: N3.OnClick(Sender);
    end;
  end;
end;

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

procedure TForm89.N16Click(Sender: TObject);
begin
  Application.CreateForm(TForm45,Form45);
  Form45.ShowModal;
  Form45.Free;
end;

end.