📄 car_change.pas

📁 软件类别: 数据库软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Car_Change;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, ExtCtrls, Buttons
  ,ChildFrm, XPMenu;

type
  Tfrm_Car_Change = class(TChildForm)//class(TForm)
    Panel3: TPanel;
    Label2: TLabel;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    Cmd_SaveUpdate: TSpeedButton;
    Cmd_DeleteUpdate: TSpeedButton;
    Cmd_EditUpdate: TSpeedButton;
    Edit_ID: TEdit;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Cmd_Select_Driver: TSpeedButton;
    Edit4: TLabeledEdit;
    Edit8: TLabeledEdit;
    Edit7: TLabeledEdit;
    Edit6: TLabeledEdit;
    Edit9: TLabeledEdit;
    Edit10: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit15: TLabeledEdit;
    Edit16: TLabeledEdit;
    Edit18: TLabeledEdit;
    Edit20: TLabeledEdit;
    Edit19: TLabeledEdit;
    Edit17: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit11: TLabeledEdit;
    Label1: TLabel;
    Edit12: TLabeledEdit;
    Label3: TLabel;
    Edit13: TLabeledEdit;
    Label4: TLabel;
    Edit14: TLabeledEdit;
    Label5: TLabel;
    Edit21: TLabeledEdit;
    Edit22: TLabeledEdit;
    Edit23: TLabeledEdit;
    Edit25: TLabeledEdit;
    Edit24: TLabeledEdit;
    Cmd_Mond: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    Cmd_Report: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Cmd_Select_DriverClick(Sender: TObject);
    procedure Cmd_RushClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_SaveUpdateClick(Sender: TObject);
    procedure Cmd_DeleteUpdateClick(Sender: TObject);
    procedure Cmd_EditUpdateClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_MondClick(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Cmd_ReportClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Car_Change: Tfrm_Car_Change;

implementation

uses Car_Select, Data, func, Mond_Select, Car_Change_Report;

{$R *.dfm}

procedure Tfrm_Car_Change.SpeedButton1Click(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_ID'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit1.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where C_ID='''+Trim(Edit1.Text)+'''');
        try
            Prepared;
            Open;
            Edit2.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
            Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
            Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
            Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
            Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
            Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
            Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
            Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
            Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
            Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
            Edit14.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Car_Change.Cmd_Select_DriverClick(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_Man'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit2.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where Man='''+Trim(Edit2.Text)+'''');
        try
            Prepared;
            Open;
            Edit1.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
            Edit3.Text:=frm_data.ADOQuery_Car.FieldByName('C_NO').AsString;
            Edit4.Text:=frm_data.ADOQuery_Car.FieldByName('Drive_ID').AsString;
            Edit5.Text:=frm_data.ADOQuery_Car.FieldByName('Address').AsString;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('Type').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Facaty_type').AsString;
            Edit8.Text:=frm_data.ADOQuery_Car.FieldByName('Fdjh').AsString;
            Edit9.Text:=frm_data.ADOQuery_Car.FieldByName('Cjh').AsString;
            Edit10.Text:=frm_data.ADOQuery_Car.FieldByName('C_Telphon').AsString;
            Edit11.Text:=frm_data.ADOQuery_Car.FieldByName('Total_mm').AsString;
            Edit12.Text:=frm_data.ADOQuery_Car.FieldByName('H_mm').AsString;
            Edit13.Text:=frm_data.ADOQuery_Car.FieldByName('H_Man').AsString;
            Edit14.Text:=frm_data.ADOQuery_Car.FieldByName('Q_Man').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Car_Change.Cmd_RushClick(Sender: TObject);
begin
    inherited;
    if Cmd_Rush.Caption='取消' then
    begin
        Cmd_Add.Enabled:=True;
        Cmd_Delete.Enabled:=True;
        Cmd_Edit.Enabled:=True;
        Cmd_Save.Enabled:=False;
        Cmd_Rush.Caption:='刷新';
    end;
    with frm_data.StoredProc_Pro_Car_Change_View do
    begin
        Close;
        frm_data.StoredProc_Pro_Car_Change_View.ProcedureName:='Pro_Car_Change_View';
        Try
            Prepared;
            Open;
            if frm_data.StoredProc_Pro_Car_Change_View.RecordCount>0 then
            begin
                First;
                Edit1.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_ID').AsString;
                Edit2.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Man').AsString;
                Edit3.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_NO').AsString;
                Edit4.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Drive_ID').AsString;
                Edit5.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Address').AsString;
                Edit6.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Type').AsString;
                Edit7.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Facaty_type').AsString;
                Edit8.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Fdjh').AsString;
                Edit9.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Cjh').AsString;

                Edit10.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Telphone').AsString;
                Edit11.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Total_mm').AsString;
                Edit12.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('H_mm').AsString;
                Edit13.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('H_Man').AsString;
                Edit14.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Q_Man').AsString;

                Edit15.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('C_ID').AsString;
                Edit16.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Car_Man').AsString;
                Edit17.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('C_NO').AsString;
                Edit18.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Drive_ID').AsString;
                Edit19.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Car_Telphone').AsString;
                Edit20.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Record_Date').AsDateTime);
                Edit21.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Address').AsString;
                Edit22.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Recorder').AsString;
                Edit23.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('MondName').AsString;
                Edit24.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Change_Date').AsDateTime);
                Edit25.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Charager').AsString;
                Edit_ID.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('ID').AsString;
            end
            else
            begin
                Edit1.Text:='';   Edit2.Text:='';  Edit3.Text:='';  Edit4.Text:='';
                Edit5.Text:='';   Edit6.Text:='';  Edit7.Text:='';  Edit8.Text:='';
                Edit9.Text:='';   Edit10.Text:=''; Edit11.Text:=''; Edit12.Text:='';
                Edit13.Text:='';  Edit14.Text:=''; Edit15.Text:=''; Edit16.Text:='';
                Edit17.Text:='';  Edit18.Text:=''; Edit19.Text:=''; Edit20.Text:='';
                Edit21.Text:='';  Edit22.Text:=''; Edit23.Text:=''; Edit24.Text:='';
                Edit25.Text:='';  Edit_ID.Text:='';
            end;
        Except
            APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Car_Change.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_ID').AsString;
    Edit2.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Man').AsString;
    Edit3.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_NO').AsString;
    Edit4.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Drive_ID').AsString;
    Edit5.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Address').AsString;
    Edit6.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Type').AsString;
    Edit7.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Facaty_type').AsString;
    Edit8.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Fdjh').AsString;
    Edit9.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Cjh').AsString;

    Edit10.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('B_Telphone').AsString;
    Edit11.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Total_mm').AsString;
    Edit12.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('H_mm').AsString;
    Edit13.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('H_Man').AsString;
    Edit14.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Q_Man').AsString;

    Edit15.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('C_ID').AsString;
    Edit16.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Car_Man').AsString;
    Edit17.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('C_NO').AsString;
    Edit18.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Drive_ID').AsString;
    Edit19.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Car_Telphone').AsString;
    Edit20.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Record_Date').AsDateTime);
    Edit21.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Address').AsString;
    Edit22.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Recorder').AsString;
    Edit23.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('MondName').AsString;
    Edit24.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Change_Date').AsDateTime);
    Edit25.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('Charager').AsString;
    Edit_ID.Text:=frm_data.StoredProc_Pro_Car_Change_View.FieldByName('ID').AsString;
end;

procedure Tfrm_Car_Change.Cmd_AddClick(Sender: TObject);
begin
  inherited;
    Cmd_Add.Enabled:=False;
    Cmd_Delete.Enabled:=False;
    Cmd_Edit.Enabled:=False;
    Cmd_Save.Enabled:=True;
    Cmd_Rush.Caption:='取消';

    Edit1.Text:='';   Edit2.Text:='';  Edit3.Text:='';  Edit4.Text:='';
    Edit5.Text:='';   Edit6.Text:='';  Edit7.Text:='';  Edit8.Text:='';
    Edit9.Text:='';   Edit10.Text:=''; Edit11.Text:=''; Edit12.Text:='';
    Edit13.Text:='';  Edit14.Text:=''; Edit15.Text:=''; Edit16.Text:='';
    Edit17.Text:='';  Edit18.Text:=''; Edit19.Text:=''; Edit20.Text:='';
    Edit21.Text:='';  Edit22.Text:=''; Edit23.Text:=''; Edit24.Text:='';
12 下一页
💿 文件大小 2665 K
👤 上传用户 zhangyuntong
📂 所属分类其他
🏷️ 相关标签

#2.60 #2000 #Win #xNT
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -