uclxx_ed.pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· PAS 代码 · 共 940 行 · 第 1/2 页

PAS
940 行
字号
12
unit UCLXX_ED;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Buttons, ComCtrls, TabNotBk,
  ExtDlgs;
type
  TCLXX_ED = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label23: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label22: TLabel;
    Label20: TLabel;
    Label24: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Edit18: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    Edit21: TEdit;
    Label21: TLabel;
    SpeedButton6: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    DBImage1: TDBImage;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure SpeedButton5Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker4Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure DateTimePicker5Change(Sender: TObject);
    procedure DateTimePicker6Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Edit11Change(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure Edit15Change(Sender: TObject);
    procedure Edit21Change(Sender: TObject);
    procedure Edit16Change(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit16KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Edit21KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker4KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker5KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker6KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
  private
    { Private declarations }
  public
    nu:string;
    procedure BH;
    function cansave:boolean;
    procedure GetAll;
    procedure Posting;
    procedure ENA;
    procedure DIS;
    procedure CLS;
    procedure tr;

    { Public declarations }
  end;

var
  CLXX_ED: TCLXX_ED;
implementation

uses UDM, UMain, UCLXX;

{$R *.dfm}
procedure TCLXX_ED.tr;
var
i:integer;
begin
  for i:=ComponentCount - 1 downto 0 do
    if(Components[i] is TEdit) then
    TEdit(Components[i]).Text:=trim(TEdit(Components[i]).Text);
end;
procedure TCLXX_ED.BH;
var
  s,m:string;
begin
  with dm.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select max(clbh) as 编号 From CLXX');
    Open;
  end;
  if dm.ADODSCLXX.FieldByName('clbh').Value=null then
    s:=s+'1'
  else
  begin
    dm.ADODSCLXX.Last;
    m:=Trim(DM.ADODSCLXX.Fieldbyname('clbh').Value);
    s:=inttostr(strtoint(m)+1);
  end;
  edit1.Text:=s;
end;
function TCLXX_ED.CanSave: Boolean;
begin
  if (Edit1.Text='') then
  begin
   Result:=False;
   Application.MessageBox('编号不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit2.Text='') then
  begin
   Result:=False;
   Application.MessageBox('车辆名称不能为空！','提示信息',0+MB_ICONINFORMATION);
   exit;
  end;
  if (Edit3.Text='') then
  begin
    Result:=False;
    Application.MessageBox('车辆类型不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit4.Text='') then
  begin
    Result:=False;
    Application.MessageBox('车牌号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit5.Text='') then
  begin
    Result:=False;
    Application.MessageBox('车辆颜色不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit6.Text='') then
  begin
    Result:=False;
    Application.MessageBox('发动机号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit7.Text='') then
  begin
    Result:=False;
    Application.MessageBox('底盘编号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (ComboBox3.Text='') then
  begin
    Result:=False;
    Application.MessageBox('保险类型不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit13.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择保险购买日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit14.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择保险截止日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (ComboBox2.Text='') then
  begin
    Result:=False;
    Application.MessageBox('保险公司不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit9.Text='') then
  begin
    Result:=False;
    Application.MessageBox('营运证号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit8.Text='') then
  begin
    Result:=False;
    Application.MessageBox('燃油类型不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit16.Text='') then
  begin
    Result:=False;
    Application.MessageBox('汽车厂家不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit17.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择购买日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit18.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择报废日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit10.Text='') then
  begin
    Result:=False;
    Application.MessageBox('附加费号不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit19.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择维护日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit20.Text='') then
  begin
    Result:=False;
    Application.MessageBox('请选择二次维护日期！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
  if (Edit21.Text='') then
  begin
    Result:=False;
    Application.MessageBox('排放量不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
end;
procedure TCLXX_ED.GetAll;
begin
    Edit1.Text:=DM.ADODSCLXX.FieldByName('clbh').AsString;
    Edit2.Text:=DM.ADODSCLXX.FieldByName('clmc').AsString;
    Edit3.Text:=DM.ADODSCLXX.FieldByName('cllx').AsString;
    Edit4.Text:=DM.ADODSCLXX.FieldByName('cph').AsString;
    Edit5.Text:=DM.ADODSCLXX.fieldByName('clys').AsString;
    Edit6.Text:=DM.ADODSCLXX.FieldByName('fdjh').AsString;
    Edit7.Text:=DM.ADODSCLXX.FieldByName('dpbh').AsString;
    Edit11.Text:=DM.ADODSCLXX.FieldByName('bxdh').AsString;
    ComboBox3.Text:=DM.ADODSCLXX.FieldByName('bxlx').AsString;
    Edit13.Text:=DM.ADODSCLXX.FieldByName('bxgmrq').AsString;
    Edit14.Text:=DM.ADODSCLXX.FieldByName('bxjzrq').AsString;
    ComboBox2.Text:=DM.ADODSCLXX.FieldByName('bxgs').AsString;
    Edit9.Text:=DM.ADODSCLXX.FieldByName('yyzh').AsString;
    Edit8.Text:=DM.ADODSCLXX.FieldByName('rylx').AsString;
    Edit16.Text:=DM.ADODSCLXX.FieldByName('qccj').AsString;
    Edit17.Text:=DM.ADODSCLXX.FieldByName('gmrq').AsString;
    Edit18.Text:=DM.ADODSCLXX.FieldByName('bfrq').AsString;
    Edit19.Text:=DM.ADODSCLXX.FieldByName('whsj').AsString;
    Edit20.Text:=DM.ADODSCLXX.FieldByName('ecwhsj').AsString;
    Edit10.Text:=DM.ADODSCLXX.FieldByName('fjfh').AsString;
    Edit21.Text:=DM.ADODSCLXX.FieldByName('pfl').AsString;
    ComboBox1.Text:=DM.ADODSCLXX.FieldByName('clzt').AsString;
    Memo1.Text:=DM.ADODSCLXX.FieldByName('bz').AsString;
end;

procedure TCLXX_ED.Posting;
begin
  if ActionCD='N' then
  BEGIN
  with DM.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO CLXX(clmc,cllx,cph,clys,fdjh,dpbh,bxdh,bxlx,bxgmrq,bxjzrq,bxgs,yyzh,rylx,qccj,gmrq,bfrq,whsj,ecwhsj,fjfh,pfl,clzt,bz,clbh)');
    SQL.Add('Values(:车辆名称,:车辆类型,:车牌号,:车辆颜色,:发动机号,:底盘编号,:保险单号,:保险类型,:保险购买日期,:保险截止日期,:保险公司,:营运证号,:燃油类型,:汽车厂家,:购买日期,:报废日期,:维护时间,:二次维护时间,:附加费号,:排放量,:车辆状态,:备注,:车辆编号)');
    Parameters.Items[0].Value:=Edit2.Text;
    Parameters.Items[1].Value:=Edit3.Text;
    Parameters.Items[2].Value:=Edit4.Text;
    Parameters.Items[3].Value:=Edit5.Text;
    Parameters.Items[4].Value:=Edit6.Text;
    Parameters.Items[5].Value:=Edit7.Text;
    Parameters.Items[6].Value:=Edit11.Text;
    Parameters.Items[7].Value:=ComboBox3.Text;
    Parameters.Items[8].Value:=Edit13.Text;
    Parameters.Items[9].Value:=Edit14.Text;
    Parameters.Items[10].Value:=ComboBox2.Text;
    Parameters.Items[11].Value:=Edit9.Text;
    Parameters.Items[12].Value:=Edit8.Text;
    Parameters.Items[13].Value:=Edit16.Text;
    Parameters.Items[14].Value:=Edit17.Text;
    Parameters.Items[15].Value:=Edit18.Text;
    Parameters.Items[16].Value:=Edit19.Text;
    Parameters.Items[17].Value:=Edit20.Text;
    Parameters.Items[18].Value:=Edit10.Text;
    Parameters.Items[19].Value:=Edit21.Text;
    Parameters.Items[20].Value:=ComboBox1.Text;
    Parameters.Items[21].Value:=Memo1.Text;
    Parameters.Items[22].Value:=Edit1.Text;
    Prepared:=True;
    ExecSQL;
  end;
  END else
  if ActionCD='M' then
  begin
    With DM.QCLXX DO
    begin
      Close;
      SQL.Clear;
      SQL.Add('update CLXX Set clmc=:车辆名称,');
      SQL.Add('cllx=:车辆类型,cph=:车牌号,clys=:车辆颜色,fdjh=:发动机号,');
      SQL.Add('dpbh=:底盘编号,bxdh=:保险单号,bxlx=:保险类型,bxgmrq=:保险购买日期,');
      SQL.Add('bxjzrq=:保险截止日期,bxgs=:保险公司,yyzh=:营运证号,rylx=:燃油类型,');
      SQL.Add('qccj=:汽车厂家,gmrq=:购买日期,bfrq=:报废日期,whsj=:维护时间,');
      SQL.Add('ecwhsj=:二次维护时间,fjfh=:附加费号,pfl=:排放量,clzt=:车辆状态,');
      SQL.Add('bz=:备注 Where clbh=:车辆编号');
      Parameters.Items[0].Value:=Edit2.Text;
      Parameters.Items[1].Value:=Edit3.Text;
      Parameters.Items[2].Value:=Edit4.Text;
      Parameters.Items[3].Value:=Edit5.Text;
      Parameters.Items[4].Value:=Edit6.Text;
      Parameters.Items[5].Value:=Edit7.Text;
      Parameters.Items[6].Value:=Edit11.Text;
      Parameters.Items[7].Value:=ComboBox3.Text;
      Parameters.Items[8].Value:=Edit13.Text;
      Parameters.Items[9].Value:=Edit14.Text;
      Parameters.Items[10].Value:=ComboBox2.Text;
      Parameters.Items[11].Value:=Edit9.Text;
      Parameters.Items[12].Value:=Edit8.Text;
      Parameters.Items[13].Value:=Edit16.Text;
      Parameters.Items[14].Value:=Edit17.Text;
      Parameters.Items[15].Value:=Edit18.Text;
      Parameters.Items[16].Value:=Edit19.Text;
      Parameters.Items[17].Value:=Edit20.Text;
      Parameters.Items[18].Value:=Edit10.Text;
      Parameters.Items[19].Value:=Edit21.Text;
      Parameters.Items[20].Value:=ComboBox1.Text;
      Parameters.Items[21].Value:=Memo1.Text;
      Parameters.Items[22].Value:=DM.ADODSCLXX.FieldByName('clbh').AsString;
      Prepared:=true;
      ExecSQL;
    end;
  end;
end;
procedure TCLXX_ED.ENA;
var
  i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if (Components[i] is TEdit) then
    begin
      TEdit(Components[i]).Color:=clWindow;
      TEdit(Components[i]).ReadOnly:=False;
    end;
  end;
  DateTimePicker1.Color:=clWindow;
  DateTimePicker1.Enabled:=True;
  DateTimePicker2.Color:=clWindow;
  DateTimePicker2.Enabled:=True;
  DateTimePicker3.Color:=clWindow;
  DateTimePicker3.Enabled:=True;
  DateTimePicker4.Color:=clWindow;
  DateTimePicker4.Enabled:=True;
  DateTimePicker5.Color:=clWindow;
  DateTimePicker5.Enabled:=True;
  DateTimePicker6.Color:=clWindow;
  DateTimePicker6.Enabled:=True;
  ComboBox1.Color:=clWindow;
  ComboBox1.Enabled:=True;
  ComboBox2.Color:=clWindow;
  ComboBox2.Enabled:=True;
  ComboBox3.Color:=clWindow;
  ComboBox3.Enabled:=True;
  DBImage1.Color:=clWindow;
  DBImage1.ReadOnly:=False;
  Memo1.Color := clWindow;
  Memo1.ReadOnly := False;
  SpeedButton1.Enabled:=False;
  SpeedButton2.Enabled:=False;
  SpeedButton3.Enabled:=True;
  SpeedButton4.Enabled:=True;
  Panel1.Enabled:=True;
end;
procedure TCLXX_ED.DIS;
var
  i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if (Components[i] is Tedit) then
    begin
      TEdit(Components[i]).Color:=$00d8d8d8;
      TEdit(Components[i]).ReadOnly:=true;
    end;
    if (Components[i] is TDateTimePicker)then
    begin
      TDateTimePicker(Components[i]).Color:=$00d8d8d8;
      TDateTimePicker(Components[i]).Enabled:=false;
    end;
  end;
  DateTimePicker1.Color:=$00d8d8d8;
  DateTimePicker1.Enabled:=False;
  DateTimePicker2.Color:=$00d8d8d8;
  DateTimePicker2.Enabled:=False;
  DateTimePicker3.Color:=$00d8d8d8;
12

uclxx_ed.pas - 源码说明

本页面展示了「很好的汽车管理系统 很实用的 谢谢合作」中的 uclxx_ed.pas 源码文件，采用 PAS 编程语言编写，共 940 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与汽车管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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