mainfrms.pas

IC卡饭堂售饭管理系统源码,内有相关说明,

unit MainFRMS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,Frmprograms, ComCtrls,FrmUserS, AppEvnts, MDIWallp,
  Abouts,frmOutCards,ToolWin, XPMenu, ImgList,ICCTRL,FrmNewCards,FrmBuildCardS,
  TFrmAddS,FrmLostCardS,FrmDelCards,FrmBadcards,FrmReadDevices,FrmUserMoneys,FrmDayS,
  Frmaddrecords;

type
  TMainFRM = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    M1: TMenuItem;
    U1: TMenuItem;
    S2: TMenuItem;
    P1: TMenuItem;
    H1: TMenuItem;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    XPMenu1: TXPMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    M2: TMenuItem;
    N8: TMenuItem;
    X1: TMenuItem;
    N9: TMenuItem;
    I1: TMenuItem;
    N10: TMenuItem;
    A1: TMenuItem;
    L1: TMenuItem;
    N11: TMenuItem;
    V1: TMenuItem;
    U2: TMenuItem;
    V2: TMenuItem;
    D1: TMenuItem;
    O1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    S3: TMenuItem;
    A2: TMenuItem;
    N14: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    S4: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    PopupMenu1: TPopupMenu;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    MDIWallpaper1: TMDIWallpaper;
    ApplicationEvents1: TApplicationEvents;
    N3: TMenuItem;
    N6: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure M2Click(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
    procedure N9Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure V1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure U2Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure S3Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFRM: TMainFRM;

implementation

{$R *.dfm}

procedure TMainFRM.N4Click(Sender: TObject);
begin
  if FileExists('DBConn.ini') then
    Application.MessageBox('数据链接成功！','操作提示',0+32); 
end;

procedure TMainFRM.N38Click(Sender: TObject);
var AboutFrm:TAbout;
begin
   AboutFrm:=TAbout.Create(self);
   AboutFrm.Show;
end;

procedure TMainFRM.N1Click(Sender: TObject);
begin
  winexec('Link.exe',0);
end;

procedure TMainFRM.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if application.MessageBox('你真的要退出《饭堂售饭管理系统》吗？','操作提示',1+32)=2 then
    Abort;
end;

procedure TMainFRM.N2Click(Sender: TObject);
var OurCard:TFrmOutCard;
begin
  OurCard:=TFrmOutCard.Create(self);
  OurCard.Show; 
end;

procedure TMainFRM.X1Click(Sender: TObject);
begin
  self.Close;
end;

procedure TMainFRM.M2Click(Sender: TObject);
var setup:TFrmProgramSetup;
begin
  setup:=TFrmProgramSetup.Create(self);
  setup.Show; 
end;

procedure TMainFRM.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  StatusBar1.Panels[1].Text:='当前时间：'+datetostr(date)+'  '+timetostr(now);
end;

procedure TMainFRM.N9Click(Sender: TObject);
var NewCard:TFrmNewCard;
begin
  NewCard:=TFrmNewCard.Create(self);
  NewCard.Show; 
end;

procedure TMainFRM.N3Click(Sender: TObject);
var NewCard:TFrmBuildCard ;
begin
  NewCard:=TFrmBuildCard.Create(self);
  NewCard.Show; 
end;

procedure TMainFRM.A1Click(Sender: TObject);
var AddMoney:TFrmAdd;
begin
  AddMoney:=TFrmAdd.Create(self);
  AddMoney.Show; 
end;

procedure TMainFRM.L1Click(Sender: TObject);
var LostCard:TFrmLostCard;
begin
  LostCard:=TFrmLostCard.Create(self);
  LostCard.Show; 
end;

procedure TMainFRM.O1Click(Sender: TObject);
var DelCard:TFrmDelCard;
begin
  DelCard:=TFrmDelCard.Create(self);
  DelCard.Show; 
end;

procedure TMainFRM.V1Click(Sender: TObject);
var BadCard:TFrmBadCard;
begin
  BadCard:=TFrmBadCard.Create(self);
  BadCard.Show;
end;

procedure TMainFRM.N6Click(Sender: TObject);
var BadCard:TFrmBadCard;
begin
  BadCard:=TFrmBadCard.Create(self);
  BadCard.Show;
end;

procedure TMainFRM.U2Click(Sender: TObject);
var UserInfo:TFrmUser;
begin
  UserInfo:=TFrmUser.Create(self);
  UserInfo.Show;
end;

procedure TMainFRM.ToolButton12Click(Sender: TObject);
var ReadDate:TFrmReadDevice;
begin

  ReadDate:=TFrmReadDevice.Create(self);
  ReadDate.Show; 
end;

procedure TMainFRM.N13Click(Sender: TObject);
var UserMoeny:TFrmUserMoney;
begin
  UserMoeny:=TFrmUserMoney.Create(self);
  UserMoeny.Show; 
end;

procedure TMainFRM.S3Click(Sender: TObject);
var Dayre:TFrmDay;
begin
  Dayre:=TFrmDay.Create(self);
  Dayre.RadioButton1.Checked;
  Dayre.Show;
end;

procedure TMainFRM.N19Click(Sender: TObject);
var Dayre:TFrmDay;
begin
  dayre:=TFrmDay.Create(self);
  Dayre.Caption:='当月售出纪录';
  Dayre.RadioButton2.Checked;
  Dayre.Show;
end;

procedure TMainFRM.A2Click(Sender: TObject);
var addmoney:TFrmAddRecord;
begin
  addmoney:=TFrmAddRecord.Create(self);
  addmoney.Show; 
end;

end.