run.pas

信息管理系统

unit run;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls, ExtCtrls,work_info_unit;

type
  Trunfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label18: TLabel;
    Bevel1: TBevel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label14: TLabel;
    Label13: TLabel;
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
     work_info:Twork_info ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  runfrm: Trunfrm;

implementation
uses mainfrmunit2;
{$R *.dfm}

procedure Trunfrm.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (key <>#8)then
key:=#0;
end;

procedure Trunfrm.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (key <>#8)then
key:=#0;
end;

procedure Trunfrm.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit10.Text:='';
edit11.Text:='';
memo1.Text:='';
end;

procedure Trunfrm.Button1Click(Sender: TObject);
var sql:string;
begin
//实例化类
work_info:=Twork_info.create ;
if work_info.CheckRec(edit9.text)  then      //如果找到对应的记录,提示用户出错
begin
showmessage('对不起，该运营记录已存在！');
exit;
end;
//赋值SQL语句更改插入记录的内容
sql:='insert into work_info(YUNDAN_ID,DRIVER_ID,VEHICLE_NO,Vehicle_Id,PEOPLE,CLIENT,'
+'remark,ORDER_NO,GEGAIN_ADD,END_ADD,LONGTH,MONEY,BEGAIN_TIME) '
+'values('''+edit9.Text+''','''+edit10.Text+''','''+edit11.Text+''','''+edit1.Text+''','
+''''+edit2.Text+''','''+edit3.Text+''','''+memo1.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''', '
+''''+edit7.Text+''','''+edit8.Text+''','''+datetostr(datetimepicker1.Date)+''' )';
work_info.recinsert(sql);
application.MessageBox('新建成功！','提示：',mb_ok);
//释放类的实例
work_info.Free;
end;

procedure Trunfrm.Button2Click(Sender: TObject);
begin
if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then     //删除信息的警告
begin
//实例化类
work_info:=Twork_info.create ;
if work_info.CheckRec(edit9.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该运营记录不存在！');
exit;
end;

work_info.RecDel(edit9.text) ;
showmessage('该运营记录已成功删除！');
//释放类的实例
work_info.Free;
end;
end;

procedure Trunfrm.Button3Click(Sender: TObject);
var sql:string;
begin
if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then  //更改信息的警告
begin
//实例化类
work_info:=Twork_info.create ;
if work_info.CheckRec(edit9.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该运营记录不存在！');
exit;
end;
//赋值SQL语句更改插入记录的内容
sql:='update work_info set DRIVER_ID='''+edit10.Text+''','
+'VEHICLE_NO='''+edit11.Text+''',Vehicle_Id='''+edit1.Text+''','
+'PEOPLE='''+edit2.Text+''',CLIENT='''+edit3.Text+''','
+'remark='''+memo1.Text+''',ORDER_NO='''+edit4.Text+''','
+'GEGAIN_ADD='''+edit5.Text+''',BEGAIN_TIME='''+datetostr(datetimepicker1.Date)+''', '
+'END_ADD='''+edit6.Text+''',LONGTH='''+edit7.Text+''','
+'MONEY='''+edit8.Text+''' where yundan_id='''+edit9.Text+'''';
work_info.RecUpdate(sql);
application.MessageBox('修改成功！','提示：',mb_ok);
//释放类的实例
work_info.Free;
end;
end;

procedure Trunfrm.Button5Click(Sender: TObject);
begin
//实例化类
work_info:=Twork_info.create ;
if work_info.CheckRec(edit9.text)=false  then      //如果找不到对应的记录,提示用户出错
begin
showmessage('对不起，该运营不存在！');
exit;
end;
//将对应的查询结果显示出来
edit1.Text :=work_info.GetVehicleId(edit9.Text);
edit2.Text :=work_info.GetPEOPLE(edit9.Text);
edit3.Text :=work_info.GetCLIENT(edit9.Text) ;
edit4.Text :=work_info.GetORDERNO(edit9.Text) ;
edit5.Text :=work_info.GetBEGiNADD(edit9.Text) ;
edit6.Text :=work_info.GetENDADD(edit9.Text);
edit7.Text :=work_info.GetLONGTH(edit9.Text);
edit8.Text :=work_info.Getmoney(edit9.Text);
edit10.Text :=work_info.GetDRIVERID(edit9.Text) ;
edit11.Text :=work_info.GetVEHICLENO(edit9.Text) ;
datetimepicker1.DateTime:=strtodate(work_info.GetBEGINTIME(edit9.Text) ) ;
memo1.Text:=work_info.GetRemark(edit9.Text);
//释放实例
work_info.Free;
end;

end.