unit1.pas

超级简单的管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, DB, ADODB, Menus, Buttons,shellapi,
  WinSkinData;

type
  TfrmServer = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel2: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBMemo1: TDBMemo;
    Label19: TLabel;
    Label20: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    Label21: TLabel;
    Label22: TLabel;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SkinData1: TSkinData;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServer: TfrmServer;

implementation

uses Unit2select,UnitHy,UnitHeJi;
{$R *.dfm}

procedure TfrmServer.Button2Click(Sender: TObject);
begin
///添加事件代码
   if dbedit1.Text ='' then                //如果为空，则会显示提示对话框
begin
 showmessage('车号不能为空！') ;
end
 else
 begin
adoquery1.Last ;
adoquery1.Insert ;                        //在main表中插入一个空记录
dbedit2.Text :=datetostr(now);              //把现在时期赋给dbedit2.Text
dbedit3.Text :=inttostr(0) ;
dbedit4.Text :=inttostr(0) ;
dbedit5.Text :=inttostr(0) ;
dbedit6.Text :=inttostr(0) ;
dbedit7.Text :=inttostr(0) ;
dbedit8.Text :=inttostr(0) ;
dbedit9.Text :=inttostr(0) ;
dbedit10.Text :=inttostr(0) ;
dbedit12.Text :=inttostr(0) ;
adoquery2.Insert ;                      
end ;

end;

procedure TfrmServer.Button3Click(Sender: TObject);
begin
//删除
if not adoquery1.Eof then
begin
//提示对话框
if application.MessageBox('确定要删除记录？','注意',mb_yesno+mb_iconquestion)=idyes then
adoquery1.Delete ;
adoquery2.Delete ;
end ;

end;

procedure TfrmServer.Button4Click(Sender: TObject);
begin
//上一条
if not adoquery1.Bof  then
begin
adoquery1.Prior ;
adoquery2.Prior ;
end;

end;

procedure TfrmServer.Button5Click(Sender: TObject);
begin
//下一条
if not adoquery1.Eof then
begin
adoquery1.Next ;
adoquery2.Next ;
 end;

end;

procedure TfrmServer.Button6Click(Sender: TObject);
begin
//最后一条
adoquery1.First ;
adoquery2.First ;

end;

procedure TfrmServer.Button7Click(Sender: TObject);
begin
//第一条记录
adoquery2.Last ;
adoquery1.Last ;

end;

procedure TfrmServer.Button9Click(Sender: TObject);
begin
frmDataSum.Show;
self.Hide;
end;

procedure TfrmServer.Button8Click(Sender: TObject);
begin
frmInfoSearch.Show;
self.Hide;
end;

procedure TfrmServer.Button1Click(Sender: TObject);
begin
frmHuiYuan.Show;
self.Hide;

end;
procedure TfrmServer.Label1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
     self.Label1.Caption:='请把鼠标从我身上那开！！';
     self.Label1.Font.Color:=clred;
end;

procedure TfrmServer.Label1MouseLeave(Sender: TObject);
begin
     self.Label1.Caption:='汽车美容服务输入界面';
     self.Label1.Font.Color:=clblack;
end;

procedure TfrmServer.FormCreate(Sender: TObject);
begin
self.GroupBox1.Hide;
end;

procedure TfrmServer.SpeedButton1Click(Sender: TObject);
begin
if(self.SpeedButton1.Caption='关闭功能') then
begin
self.GroupBox1.Show;
self.SpeedButton1.Caption:='开启功能';
end
else
begin
self.SpeedButton1.Caption:='关闭功能';
self.GroupBox1.Hide;
end;
end;

procedure TfrmServer.SpeedButton2Click(Sender: TObject);
begin
 shellexecute(handle,'open',pchar('EXCEL'),nil,nil,sw_show);
end;

procedure TfrmServer.SpeedButton3Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('CALC.EXE'),nil,nil,sw_show);
end;

procedure TfrmServer.SpeedButton4Click(Sender: TObject);
begin
 shellexecute(handle,'open',pchar('NOTEPAD.EXE'),nil,nil,sw_show);
end;

procedure TfrmServer.SpeedButton5Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('winword'),nil,nil,sw_show);
end;

end.