📄 drive_card.~pas

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

interface

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

type
  Tfrm_Drive_Card = class(TChildForm)//class(TForm)
    Panel3: TPanel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Edit1: TLabeledEdit;
    Edit7: TLabeledEdit;
    Edit3: TLabeledEdit;
    labeleditsex: TLabeledEdit;
    Edit9: TLabeledEdit;
    Edit10: TLabeledEdit;
    Edit8: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit6: TLabeledEdit;
    Edit11: TLabeledEdit;
    Edit12: TLabeledEdit;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    Cmd_Report: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit13: TLabeledEdit;
    Edit_ID: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    Edit4: TComboBox;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_RushClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure Edit1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Cmd_EditClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure Cmd_ReportClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Drive_Card: Tfrm_Drive_Card;

implementation

uses Data, Drive_Card_Report;

{$R *.dfm}

procedure Tfrm_Drive_Card.Cmd_AddClick(Sender: TObject);
begin
    
    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:=ForMatDateTime('yyyy''-''mm''-''dd',now);
    Edit_ID.Text:='';
end;

procedure Tfrm_Drive_Card.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;
        with frm_data.Stored_Pro_Drive_Card do
        begin
            Close;
            frm_data.Stored_Pro_Drive_Card.ProcedureName:='Pro_Drive_Card';
            Try
                Prepared;
                Open;
                if frm_data.Stored_Pro_Drive_Card.RecordCount>0 then
                begin
                    First;
                    Edit1.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_ID').AsString;
                    Edit2.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Man').AsString;
                    Edit3.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SH_Card').AsString;
                    Edit4.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SEX').AsString;
                    Edit5.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Old_Date').AsDateTime);
                    Edit6.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Card_Type').AsString;
                    Edit7.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('JG').AsString;
                    Edit8.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Telphone').AsString;
                    Edit9.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Address').AsString;
                    Edit10.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Mond').AsString;
                    Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Date').AsDateTime);
                    Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Value_Date').AsDateTime);
                    Edit13.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Record_Date').AsDateTime);
                    Edit_ID.Text:=frm_data.Stored_Pro_Drive_Card.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:=''; Edit_ID.Text:='';
                end;
            Except
                APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
    if Cmd_Rush.Caption='刷新' then
    begin
        with frm_data.Stored_Pro_Drive_Card do
        begin
            Close;
            frm_data.Stored_Pro_Drive_Card.ProcedureName:='Pro_Drive_Card';
            Try
                Prepared;
                Open;
                if frm_data.Stored_Pro_Drive_Card.RecordCount>0 then
                begin
                    First;
                    Edit1.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_ID').AsString;
                    Edit2.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Man').AsString;
                    Edit3.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SH_Card').AsString;
                    Edit4.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SEX').AsString;
                    Edit5.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Old_Date').AsDateTime);
                    Edit6.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Card_Type').AsString;
                    Edit7.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('JG').AsString;
                    Edit8.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Telphone').AsString;
                    Edit9.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Address').AsString;
                    Edit10.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Mond').AsString;
                    Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Date').AsDateTime);
                    Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Value_Date').AsDateTime);
                    Edit13.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Record_Date').AsDateTime);
                    Edit_ID.Text:=frm_data.Stored_Pro_Drive_Card.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:=''; Edit_ID.Text:='';
                end;
            Except
                APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Drive_Card.FormShow(Sender: TObject);
begin
    inherited;
    Cmd_RushClick(sender);
end;

procedure Tfrm_Drive_Card.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_ID').AsString;
    Edit2.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Man').AsString;
    Edit3.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SH_Card').AsString;
    Edit4.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('SEX').AsString;
    Edit5.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Old_Date').AsDateTime);
    Edit6.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Drive_Card_Type').AsString;
    Edit7.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('JG').AsString;
    Edit8.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Telphone').AsString;
    Edit9.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Address').AsString;
    Edit10.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Mond').AsString;
    Edit11.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Send_Date').AsDateTime);
    Edit12.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Value_Date').AsDateTime);
    Edit13.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Stored_Pro_Drive_Card.FieldByName('Record_Date').AsDateTime);
    Edit_ID.Text:=frm_data.Stored_Pro_Drive_Card.FieldByName('ID').AsString;
end;

procedure Tfrm_Drive_Card.Cmd_SaveClick(Sender: TObject);
begin
12 下一页
💿 文件大小 2665 K
👤 上传用户 zhangyuntong
📂 所属分类其他
🏷️ 相关标签

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

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