unit6.pas

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

unit Unit6;

interface

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

type
  TCarshigugl = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Panel10: TPanel;
    procedure FormShow(Sender: TObject);
    procedure chkedit;
    procedure zeroscan;
    procedure editshow(I:integer);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel8Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel7Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(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 Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Panel10Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Carshigugl: TCarshigugl;
  editreadonly,insertorupdate:boolean;
  carnum : string;
  shigudate : Tdatetime;

implementation
uses unit2;

{$R *.dfm}

procedure TCarshigugl.FormShow(Sender: TObject);
begin
editreadonly:=true;
insertorupdate:=true;
combobox1.Clear;
combobox2.Clear;
with datamodule2.carclassq do
begin
close;
sql.Clear;
sql.Add('select * from cardangan.dbf');
open;
if recordcount > 0 then
    while not eof do
     begin
     combobox1.Items.Add(fieldbyname('carnum').AsString);
     next;
     end;

close;
sql.Clear;
sql.Add('select * from carclass.dbf');
open;
if recordcount > 0 then
    while not eof do
     begin
     combobox2.Items.Add(fieldbyname('carclass').AsString);
     next;
     end;

close;
sql.Clear;
sql.Add('select * from carshigu.dbf');
open;
carnum:=fieldbyname('carnum').AsString;
shigudate:=fieldbyname('shigudate').AsDateTime;
combobox1.Text:=fieldbyname('carnum').AsString;
combobox2.Text:=fieldbyname('carclass').AsString;
datetimepicker1.DateTime:=fieldbyname('shigudate').AsDateTime;
edit1.Text:=fieldbyname('shiguqrz').AsString;
edit2.Text:=floattostr(fieldbyname('companyfdj').AsFloat);
edit3.Text:=floattostr(fieldbyname('baoxianlpj').AsFloat);
edit4.Text:=floattostr(fieldbyname('duifangpcj').AsFloat);
edit5.Text:=fieldbyname('duifangshc').AsString;
edit6.Text:=fieldbyname('duifangnam').AsString;
edit7.Text:=fieldbyname('duifangzz').AsString;
edit8.Text:=fieldbyname('duifanguni').AsString;
edit9.Text:=fieldbyname('shigugy').AsString;
memo1.Text:=fieldbyname('hejienr').AsString;
end;
chkedit;
end;

procedure TCarshigugl.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;
edit9.Enabled:=false;
combobox1.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;
edit9.Color:=clinfobk;
combobox1.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;
edit9.Color:=clWindow;
combobox1.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;
edit9.Enabled:=true;
combobox1.enabled:=true;
//combobox2.enabled:=true;
datetimepicker1.Enabled:=true;
memo1.Enabled:=true;
panel5.Caption:='保存';
end;
end;

procedure TCarshigugl.Panel1Click(Sender: TObject);
begin
if not datamodule2.CarclassQ.Bof then
editshow(1)
else showmessage('已经是首记录了');
end;

procedure TCarshigugl.Panel2Click(Sender: TObject);
begin
if not datamodule2.CarclassQ.Bof then
editshow(2)
else
showmessage('您已经在首记录了！！');
end;

procedure TCarshigugl.Panel3Click(Sender: TObject);
begin
if not datamodule2.CarclassQ.Eof then
editshow(3)
else showmessage('这已经是最后一条记录');
end;

procedure TCarshigugl.Panel4Click(Sender: TObject);
begin
if not datamodule2.CarclassQ.Eof then
editshow(4)
else showmessage('已经是末记录');
end;

procedure TCarshigugl.Panel8Click(Sender: TObject);
begin
insertorupdate:=true;
editreadonly:=true;
chkedit;
carshigugl.FormShow(sender);
end;

procedure TCarshigugl.Panel6Click(Sender: TObject);
begin
if datamodule2.CarclassQ.RecordCount > 0  then
begin
insertorupdate:=false;
editreadonly:=false;
chkedit;
combobox1.Enabled:=false;
datetimepicker1.SetFocus;
end