unithy.pas

超级简单的管理系统

unit UnitHy;

interface

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

type
  TfrmHuiYuan = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    GroupBox1: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    Button4: TButton;
    Button5: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    H1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure H1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmHuiYuan: TfrmHuiYuan;

implementation
uses Unit1,Unit2select,UnitHeJi;
//主窗体，汽车服务，
{$R *.dfm}

procedure TfrmHuiYuan.Button1Click(Sender: TObject);
begin
if  edit1.Text ='' then               //如果车号为空，则会显示提示对话框
begin
showmessage('请输入车号！ 车号不能为空')  ;
exit;
end ;
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from huiyuan where car_num= :a10' );
                                         //动态查询
adoquery1.Parameters.ParamByName('a10').Value :=edit1.Text ;
adoquery1.Open ;

end;

procedure TfrmHuiYuan.Button2Click(Sender: TObject);
var
i:word ;
begin
i:=messagedlg('你确定要增加次数吗？',mtConfirmation,[mbYes,mbNo],1) ;
 if i=6 then                   //如果你单击"yes"按钮，则文本框中的次数加1
 begin
 adoquery1.Edit ;
 dbedit8.Text :=inttostr(strtoint(dbedit8.Text)+1) ;
 adoquery1.Post ;
end;
end;

procedure TfrmHuiYuan.Button3Click(Sender: TObject);
var t:word ;
begin
 t:=messagedlg('你确定要修改时间吗？',mtConfirmation,[mbYes,mbNo],1) ;
 if t=6 then
 begin
    adoquery1.Edit ;
    dbedit4.Text :=inputbox('输入新的时间','请你输入新的截止时间，格式如下：2003-12-5','2004-12-5') ;
    adoquery1.Post ;
   end ;
end;

procedure TfrmHuiYuan.Button4Click(Sender: TObject);
begin
 adoquery1.Insert ;
 adoquery1.Edit ;
 dbedit1.Enabled:=true ;
 dbedit2.Enabled:=true ;
 dbedit4.Enabled:=true ;
 edit1.Enabled :=false ;
 dbedit4.Text :=datetostr(now) ;
 dbedit1.Text :='1' ;
 dbedit2.Text :='' ;
 dbedit3.Text :='' ;
 dbedit5.Text :='' ;
 dbedit6.Text :='' ;
 dbedit7.Text :='' ;
 dbedit8.Text :='' ;
 dbedit9.Text :='' ;

end;

procedure TfrmHuiYuan.Button5Click(Sender: TObject);
begin
if edit1.Enabled =true then
begin
showmessage('你已经保存过了！') ;
exit ;
end
else
begin
adoquery1.Edit ;
adoquery1.Post ;
edit1.Enabled :=true ;
end ;
end;
procedure TfrmHuiYuan.BitBtn1Click(Sender: TObject);
begin
if  edit1.Text ='' then               //如果车号为空，则会显示提示对话框
begin
showmessage('请输入车号！ 车号不能为空')  ;
exit;
end ;
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add('select * from huiyuan where car_num= :a10' );
                                         //动态查询
adoquery1.Parameters.ParamByName('a10').Value :=edit1.Text ;
adoquery1.Open ;
end;

procedure TfrmHuiYuan.N3Click(Sender: TObject);
begin
self.Show;
end;

procedure TfrmHuiYuan.N4Click(Sender: TObject);
begin
frmInfoSearch.Show;
self.Hide;
end;

procedure TfrmHuiYuan.N5Click(Sender: TObject);
begin
frmDataSum.Show;
self.Hide;
end;

procedure TfrmHuiYuan.N2Click(Sender: TObject);
begin
frmServer.Show;
self.Hide;
end;

procedure TfrmHuiYuan.H1Click(Sender: TObject);
var
location:string;
begin
location:='help.chm';
shellexecute(handle,'open',pchar('location'),nil,nil,sw_show);
end;

end.