unit3.~pas

这是用Delphi编写的车辆管理系统。主要功能有档案管理

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Mask, StdCtrls, ExtCtrls;

type
  TCarDanganLR = class(TForm)
    Label14: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel11: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Edit7: TEdit;
    Edit8: TEdit;
    Panel19: TPanel;
    procedure chkedit;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure editshow(I:integer);
    procedure editzero;
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure Panel8Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel7Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Panel19Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CarDanganLR: TCarDanganLR;
  editreadonly,insertorupdate:boolean;
  carname:string;
  inorupno:integer;

implementation
uses unit2;

{$R *.dfm}

procedure TCardanganlr.chkedit;
begin
if editreadonly then
begin
panel6.Enabled:=true;
panel6.Color:=clmoneygreen;
panel7.Enabled:=true;
panel7.Color:=clmoneygreen;
panel1.Enabled:=true;
panel1.Color:=clmoneygreen;
panel2.Enabled:=true;
panel2.Color:=clmoneygreen;
panel3.Enabled:=true;
panel3.Color:=clmoneygreen;
panel4.Enabled:=true;
panel4.Color:=clmoneygreen;
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
combobox1.enabled:=false;
combobox2.enabled:=false;
checkbox1.Enabled:=false;
checkbox2.Enabled:=false;
datetimepicker1.Enabled:=false;
memo1.Enabled:=false;
edit1.Color:=clInfoBk;
edit2.Color:=clinfobk;
edit3.Color:=clInfoBk;
edit4.Color:=clinfobk;
edit5.Color:=clInfoBk;
edit6.Color:=clinfobk;
edit7.Color:=clInfoBk;
edit8.Color:=clinfobk;
combobox1.Color:=clinfobk;
combobox2.Color:=clinfobk;
checkbox1.Color:=clinfobk;
checkbox2.Color:=clinfobk;
datetimepicker1.Color:=clinfobk;
memo1.Color:=clinfobk;
panel5.Caption:='添加';
end
else
begin
panel1.Enabled:=false;
panel1.Color:=clwindow;
panel2.Enabled:=false;
panel2.Color:=clwindow;
panel3.Enabled:=false;
panel3.Color:=clwindow;
panel4.Enabled:=false;
panel4.Color:=clwindow;
panel6.Enabled:=false;
panel6.Color:=clwindow;
panel7.Enabled:=false;
panel7.Color:=clwindow;
edit1.Color:=clWindow;
edit2.Color:=clWindow;
edit3.Color:=clWindow;
edit4.Color:=clWindow;
edit5.Color:=clWindow;
edit6.Color:=clWindow;
edit7.Color:=clWindow;
edit8.Color:=clWindow;
combobox1.Color:=clWindow;
combobox2.Color:=clWindow;
checkbox1.Color:=clWindow;
checkbox2.Color:=clWindow;
datetimepicker1.Color:=clWindow;
memo1.Color:=clwindow;

edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
combobox1.enabled:=true;
combobox2.enabled:=true;
checkbox1.Enabled:=true;
checkbox2.Enabled:=true;
datetimepicker1.Enabled:=true;
memo1.Enabled:=true;
panel5.Caption:='保存';
end;
end;


procedure TCarDanganLR.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Tpanel(sender).BevelOuter:=bvLowered;
//panel1.BevelOuter:=bvLowered;
end;

procedure TCarDanganLR.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tpanel(sender).BevelOuter:=bvSpace;
//panel1.BevelOuter:=bvSpace;
end;

procedure TCarDanganLR.FormShow(Sender: TObject);
begin
combobox1.Clear;
combobox2.Clear;
editreadonly:=true;
chkedit;
insertorupdate:=true;   //true 为添加 false 修改
with datamodule2.carclassQ do
begin
close;
sql.Clear;
sql.Add('select * from carclass.dbf');
open;
if recordcount > 0 then
    while not eof do
     begin
     combobox1.Items.Add(fieldbyname('carclass').AsString);
     next;
     end;
end;
with datamodule2.carclassQ do
begin
close;
sql.Clear;
sql.Add('select * from cardriver.dbf');
open;
if recordcount > 0 then
    while not eof do
     begin
     combobox2.Items.Add(fieldbyname('Name').AsString);
     next;
     end;
end;

with datamodule2.CardanganQ do
     begin
     close;
     sql.Clear;
     sql.Add('select * from cardangan.dbf');
     open;
     if   datamodule2.CardanganQ.RecordCount >0 then
     begin
     carname:=fieldbyname('Carnum').AsString;
     edit1.Text:=fieldbyname('Carnum').AsString;
     datetimepicker1.DateTime:=fieldbyname('bydate').AsDateTime;
     edit2.Text:=inttostr(fieldbyname('carload').Value);
     edit3.Text:=inttostr(fieldbyname('seat').value);
     edit4.Text:=inttostr(fieldbyname('FadongjiNU').value);
     edit5.Text:=inttostr(fieldbyname('chejianum').value);
     edit6.Text:=fieldbyname('changpaiXH').AsString;
     edit7.Text:=fieldbyname('Humorunit').AsString;
     edit8.Text:=fieldbyname('Inunit').AsString;
     checkbox1.Checked:=fieldbyname('nianjian').AsBoolean;
     checkbox2.Checked:=fieldbyname('baoxian').AsBoolean;
     combobox1.Text:=fieldbyname('carclass').AsString;
     combobox2.Text:=fieldbyname('driver').AsString;
     memo1.Text:=fieldbyname('memo').AsString;
     end;
     label15.Caption:='记录总数:'+inttostr(datamodule2.CardanganQ.RecordCount);
     end;

end;

procedure tcardanganlr.editzero;
begin
if edit2.Text='' then
    edit2.Text:='0';
    if edit4.Text='' then
               edit4.Text:='0';
               if edit5.Text='' then
               edit5.Text:='0';
               if edit3.Text='' then
               edit3.Text:='0';
end;

procedure Tcardanganlr.editshow(I:integer);
begin
case i of
 1:  datamodule2.CardanganQ.First;
 2:  datamodule2.CardanganQ.Prior;
 3:  datamodule2.CardanganQ.next;
 4:  datamodule2.CardanganQ.Last;
 end;
with datamodule2.CardanganQ do
     begin
     //close;
     //sql.Clear;
     //sql.Add('select * from cardangan.dbf');
     //open;
     carname:=fieldbyname('Carnum').AsString;
     edit1.Text:=fieldbyname('Carnum').AsString;
     combobox1.Text:=fieldbyname('carclass').AsString;