驾校学员管理系统

【实例简介】驾校学员练车管理系统
【实例截图】
【核心代码】DELPHI
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, DB, ADODB, Grids, DBGrids, DBCtrls, StdCtrls,
  StrUtils, XPMan, MPlayer,MMSystem, Menus,DateUtils, Mask, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdFTP;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Timer1: TTimer;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    TabSheet7: TTabSheet;
    GroupBox4: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    PageControl3: TPageControl;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    GroupBox1: TGroupBox;
    Button4: TButton;
    Button3: TButton;
    Button10: TButton;
    DBText12: TDBText;
    Edit16: TEdit;
    DBText1: TDBText;
    Label19: TLabel;
    Label12: TLabel;
    Label18: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    DBText2: TDBText;
    DBText3: TDBText;
    Label3: TLabel;
    Edit3: TEdit;
    ComboBox3: TComboBox;
    Label4: TLabel;
    DBText4: TDBText;
    Edit4: TEdit;
    ComboBox4: TComboBox;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    DBText5: TDBText;
    Label5: TLabel;
    DateTimePicker2: TDateTimePicker;
    Edit6: TEdit;
    DBText6: TDBText;
    Label6: TLabel;
    Edit7: TEdit;
    DateTimePicker3: TDateTimePicker;
    DBText7: TDBText;
    Label7: TLabel;
    Label8: TLabel;
    DBText8: TDBText;
    Edit8: TEdit;
    DateTimePicker4: TDateTimePicker;
    Label9: TLabel;
    DBText9: TDBText;
    Edit9: TEdit;
    ComboBox1: TComboBox;
    Label10: TLabel;
    DBText10: TDBText;
    Edit10: TEdit;
    Label11: TLabel;
    DBText11: TDBText;
    Edit11: TEdit;
    ComboBox5: TComboBox;
    TabSheet10: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox5: TGroupBox;
    Label20: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBText18: TDBText;
    DBText19: TDBText;
    DBText20: TDBText;
    DBText21: TDBText;
    DBText22: TDBText;
    Label25: TLabel;
    Label26: TLabel;
    ComboBox6: TComboBox;
    ComboBox2: TComboBox;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Button15: TButton;
    Button17: TButton;
    Button18: TButton;
    Edit21: TEdit;
    Edit22: TEdit;
    Button19: TButton;
    DBNavigator4: TDBNavigator;
    DateTimePicker5: TDateTimePicker;
    Edit15: TEdit;
    DateTimePicker7: TDateTimePicker;
    DBGrid6: TDBGrid;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Edit23: TEdit;
    Label13: TLabel;
    DateTimePicker6: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Label14: TLabel;
    DateTimePicker9: TDateTimePicker;
    Label15: TLabel;
    Edit24: TEdit;
    ComboBox7: TComboBox;
    TabSheet5: TTabSheet;
    Button11: TButton;
    Button20: TButton;
    Edit25: TEdit;
    Button14: TButton;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    ComboBox9: TComboBox;
    Button12: TButton;
    Button13: TButton;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Button6: TButton;
    Button5: TButton;
    Button8: TButton;
    Button7: TButton;
    Button2: TButton;
    Button9: TButton;
    Button1: TButton;
    Button16: TButton;
    Button21: TButton;
    GroupBox2: TGroupBox;
    Button22: TButton;
    Button24: TButton;
    DataSource5: TDataSource;
    ADOQuery5: TADOQuery;
    DBGrid2: TDBGrid;
    Label16: TLabel;
    Label17: TLabel;
    Button23: TButton;
    Button25: TButton;
    GroupBox3: TGroupBox;
    DBNavigator2: TDBNavigator;
    Button26: TButton;
    XPManifest1: TXPManifest;
    Button27: TButton;
    DateTimePicker10: TDateTimePicker;
    Button28: TButton;
    Edit29: TEdit;
    GroupBox6: TGroupBox;
    DBGrid3: TDBGrid;
    DataSource6: TDataSource;
    ADOQuery6: TADOQuery;
    Button30: TButton;
    ADOQuery7: TADOQuery;
    Button29: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    ADOQuery8: TADOQuery;
    TabSheet4: TTabSheet;
    GroupBox7: TGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    Button36: TButton;
    Button37: TButton;
    DateTimePicker12: TDateTimePicker;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    Button41: TButton;
    Button35: TButton;
    Button42: TButton;
    Label31: TLabel;
    Edit33: TEdit;
    ADOQuery9: TADOQuery;
    Button43: TButton;
    DBNavigator1: TDBNavigator;
    ADO5int: TADOQuery;
    DBGrid4: TDBGrid;
    DATA5int: TDataSource;
    DBEdit1: TDBEdit;
    Button44: TButton;
    Button45: TButton;
    Button46: TButton;
    StatusBar1: TStatusBar;
    Edit30: TEdit;
    Edit31: TEdit;
    Button47: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N3: TMenuItem;
    N11: TMenuItem;
    N22: TMenuItem;
    N4: TMenuItem;
    N12: TMenuItem;
    N23: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    Button48: TButton;
    Button49: TButton;
    Button50: TButton;
    RadioButton8: TRadioButton;
    Edit32: TEdit;
    Button51: TButton;
    Button52: TButton;
    IdFTP1: TIdFTP;
    Button53: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure DBGrid3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker4Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure DateTimePicker5Change(Sender: TObject);
    procedure DateTimePicker7Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure DateTimePicker6Change(Sender: TObject);
    procedure DateTimePicker8Change(Sender: TObject);
    procedure DateTimePicker9Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure ComboBox9Enter(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button42Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button43Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure Button45Click(Sender: TObject);
    procedure Button46Click(Sender: TObject);
    procedure DBGrid2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button47Click(Sender: TObject);
    procedure Button49Click(Sender: TObject);
    procedure Button48Click(Sender: TObject);
    procedure Button50Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure Button51Click(Sender: TObject);
    procedure Button52Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ejiaolian:string;
  uc:Integer;
implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit10, Unit14, Uxyinf;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
pagecontrol1.Align:=alclient;
dbgrid1.Align:=alclient;
adoquery2.active:=true;

timer1.Enabled:=true;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton1.Caption;
ejiaolian:='吴教练';
uc:=1;
Button27.Click;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton2.Caption;
ejiaolian:='杨教练';
uc:=1;
Button27.Click;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton3.Caption;
ejiaolian:='马教练';
uc:=1;
Button27.Click;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton4.Caption;
ejiaolian:='张教练';
uc:=1;
Button27.Click;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton5.Caption;
ejiaolian:='闫教练';
uc:=1;
Button27.Click;
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton6.Caption;
ejiaolian:='孙教练';
uc:=1;
Button27.Click;
end;

procedure TForm1.RadioButton7Click(Sender: TObject);
begin
//-form4.Label1.Caption:=RadioButton7.Caption;
ADOQuery5.Close;
ADOQuery5.SQL.Text:='select * from ulianche where  u练车日期 = '
          '#' StringReplace (datetostr(DateTimePicker10.Date), '/', '-', [rfReplaceAll]) '#' ' '
          'order by usid desc';
ADOQuery5.Open;
ADO5int.Close;
ADO5int.SQL.Text:='select count(*) from ulianche where  u练车日期 = '
          '#' StringReplace (datetostr(DateTimePicker10.Date), '/', '-', [rfReplaceAll]) '#';
ADO5int.Open;
end;

procedure TForm1.RadioButton8Click(Sender: TObject);
begin
form4.Label1.Caption:=RadioButton8.Caption;
ejiaolian:='张磊教';
uc:=1;
Button27.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin


Button1.Caption := IntToStr(StrToIntDef(Button1.Caption, 0) 1);
//label12.Caption:=IntToStr(timer1.interval);
edit1.Text:=IntToStr(timer1.tag);
button2.Click;
//初始化。。。。
PageControl3.Align:=alClient;

//最大化每个窗口
form1.WindowState:=wsMaximized;
form2.WindowState:=wsMaximized;
form3.WindowState:=wsMaximized;
form4.WindowState:=wsMaximized;
form5.WindowState:=wsMaximized;
form6.WindowState:=wsMaximized;
form7.WindowState:=wsMaximized;

timer1.Enabled:=false;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';

//edit15.Text:='';
//edit17.Text:='';
//edit18.Text:='';
//edit19.Text:='';
//edit20.Text:='';

edit23.Text:='';
edit26.Text:='';
edit27.Text:='';
edit28.Text:='';
edit24.Text:='';
//日期初始化
DateTimePicker1.Date:=Date();
DateTimePicker2.Date:=Date();
DateTimePicker3.Date:=Date();
DateTimePicker4.Date:=Date();
DateTimePicker5.Date:=Date();
DateTimePicker6.Date:=Date();
DateTimePicker7.Date:=Date();
DateTimePicker8.Date:=Date();
DateTimePicker9.Date:=Date();



//表格初始化
edit16.Text:=DBText12.Caption;
Label16.Caption:=DBText1.Caption;
Label17.Caption:=DBText12.Caption;

//驾校设置初始化
form2.Button1.Click;
ComboBox7.Items:=form2.ComboBox1.Items;
ComboBox3.Items:=form2.ComboBox1.Items;

form3.Button1.Click;


//练车时间初始化
form5.Button1.Click;
form5.ComboBox1.Items:=Form5.DBMemo1.Lines;
DBGrid2.Align:=alClient;
DateTimePicker10.Date:=date();
uc:=0;
//是否通过初始化
 ComboBox9.Items:=ComboBox5.Items;

//学员练车初始化
form4.ComboBox1.Items:=form5.ComboBox1.Items;
form4.ComboBox3.Items:=form3.ComboBox1.Items;
form4.DateTimePicker1.Date:=date();
DateTimePicker1.Date:=date();

//收钱初始化
form6.Button1.Click;
ComboBox1.Items:=form6.ComboBox1.Items;
form4.ComboBox2.Items:=ComboBox1.Items;
//初始化结束
timer1.Enabled:=false;

//账目初始化
DBGrid3.Align:=alClient;

end;

procedure TForm1.Button20Click(Sender: TObject);
begin
edit25.Text:='select * from juser where uid>0  ';
if edit23.Text <> '' then edit25.Text := edit25.Text ' and 驾校=' '''' edit23.Text '''';
if edit26.Text <> '' then edit25.Text := edit25.Text ' and 开始练车 <='
                  '#' StringReplace (edit26.Text, '/', '-', [rfReplaceAll]) '#  and '   '结束练车 >='
                  '#' StringReplace (edit27.Text, '/', '-', [rfReplaceAll]) '#   ' ;
if edit28.Text <> '' then edit25.Text := edit25.Text  ' and 考试日期 ='
                  '#' StringReplace (edit28.Text, '/', '-', [rfReplaceAll]) '#  ';
if edit24.Text <> '' then edit25.Text := edit25.Text ' and 是否通过=' '''' edit24.Text '''';
form14.Edit1.Text:=StringReplace (edit25.Text, 'select * from juser', ' ', [rfReplaceAll]) ;
edit25.Text:=edit25.Text ' order by uid desc' ;
ADOQuery1.Close;
ADOQuery1.SQL.Text:=edit25.Text;
ADOQuery1.Open;

edit33.Text:='select count(*) from juser where uid>0  ';
if edit23.Text <> '' then edit33.Text := edit33.Text ' and 驾校=' '''' edit23.Text '''';
if edit26.Text <> '' then edit33.Text := edit33.Text ' and 开始练车 <='
                  '#' StringReplace (edit26.Text, '/', '-', [rfReplaceAll]) '#  and '   '结束练车 >='
                  '#' StringReplace (edit27.Text, '/', '-', [rfReplaceAll]) '#   ' ;
if edit28.Text <> '' then edit33.Text := edit33.Text  ' and 考试日期 ='
                  '#' StringReplace (edit28.Text, '/', '-', [rfReplaceAll]) '#  ';
if edit24.Text <> '' then edit33.Text := edit33.Text ' and 是否通过=' '''' edit24.Text '''';
ADOQuery9.Close;
ADOQuery9.SQL.Text:=edit33.Text;
ADOQuery9.Open;
Label31.Caption:=ADOQuery9.FieldValues['Expr1000'];
Label31.Caption:='一共 【' Label31.Caption '】个学员';
form1.PageControl3.TabIndex:=2;
form1.PageControl3.ActivePage.Show;
end;

procedure TForm1.Button21Click(Sender: TObject);
var
tf:textfile;
ln:string;
begin
assignfile(tf,'c:\xueyuan\temp.txt');
rewrite(tf);
ADOQuery1.First;
while not ADOQuery1.eof do begin
ln:=ADOQuery1.FieldValues['名字'];
ln := dupestring(' ',5-length(ln))  ln;
//ln := Format('%8s',[ln]);
ln:=ln ' ' ADOQuery1.FieldValues['电话'];
ln:=ln ' ' ADOQuery1.FieldValues['驾校'];
ln:=ln #13#10;
writeln(tf,ln);
ADOQuery1.next
end;
closefile(tf);
end;


procedure TForm1.Button22Click(Sender: TObject);
begin
{
if RadioButton1.Enabled=true then form4.Label1.Caption:=RadioButton1.Caption;
if RadioButton2.Enabled=true then form4.Label1.Caption:=RadioButton2.Caption;
if RadioButton3.Enabled=true then form4.Label1.Caption:=RadioButton3.Caption;
if RadioButton4.Enabled=true then form4.Label1.Caption:=RadioButton4.Caption;
if RadioButton5.Enabled=true then form4.Label1.Caption:=RadioButton5.Caption;
if RadioButton6.Enabled=true then form4.Label1.Caption:=RadioButton6.Caption;
if RadioButton7.Enabled=true then form4.Label1.Caption:=RadioButton7.Caption; }

//form4.Button2.Click;

if not ADOQuery5.Eof then
begin
form4.edit1.Text:=form1.ADOQuery5.FieldValues['uid'];
form4.edit2.Text:=form1.ADOQuery5.FieldValues['u名字'];
end
else
begin
form4.Edit1.Text:=DBText12.Caption;
form4.Edit2.Text:=DBText1.Caption;
end;
form4.Edit6.Text:=form1.DBText9.Caption;
form4.Edit8.Text:=form4.DBText3.Caption;
form4.Button2.Click;
form4.Show;


end;

procedure TForm1.Button23Click(Sender: TObject);
begin
form5.Show;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
ADOQuery5.Delete;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
combobox9.DroppedDown := True;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin

form4.Edit1.Text:=DBText12.Caption;
form4.Edit2.Text:=DBText1.Caption;
form4.Edit6.Text:=form1.DBText9.Caption;
form4.Edit8.Text:=form4.DBText3.Caption;
form4.Button2.Click;
form4.Show;


end;

procedure TForm1.Button27Click(Sender: TObject);
begin
//ejiaolian:='吴教练';
if uc=1 then
begin
ADOQuery5.Close;
ADOQuery5.SQL.Text:='select * from ulianche where u教练 = '
          '''' ejiaolian '''' 'and u练车日期 = '
          '#' StringReplace (datetostr(DateTimePicker10.Date), '/', '-', [rfReplaceAll]) '#' ' '
          'order by usid desc';
ADOQuery5.Open;
ADO5int.Close;
ADO5int.SQL.Text:='select count(*) from ulianche where u教练 = '
          '''' ejiaolian '''' 'and u练车日期 = '
          '#' StringReplace (datetostr(DateTimePicker10.Date), '/', '-', [rfReplaceAll]) '#';
ADO5int.Open;
//Label21.Caption:=ADO5int.FieldValues['Expr1000'] '人';
uc:=0;
end
else
begin
  uc:=0;
  form7.Show;
end;
edit29.Text:=ADOQuery5.SQL.Text;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin

if Button28.Caption <> '关闭教练' then
begin
 Button28.Caption:='关闭教练';
 GroupBox4.Visible:=False;

end
 else
 begin
 Button28.Caption:='打开教练';
 GroupBox4.Visible:=true;
 end;
 end;

procedure TForm1.Button29Click(Sender: TObject);
begin
form1.PageControl3.TabIndex:=1;
form1.PageControl3.ActivePage.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{

}

end;

procedure TForm1.Button30Click(Sender: TObject);
begin
PlaySound(PChar('C:\xueyuan\cg.wav'),0, SND_ASYNC);
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
DateTimePicker10.Date:=date();
edit29.Text:=datetostr(DateTimePicker1.Date) ;
uc:=1;
Button27.Click;
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
DateTimePicker10.Date:=DateTimePicker10.Date-1;
uc:=1;
Button27.Click;
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
DateTimePicker10.Date:=DateTimePicker10.Date 1;
uc:=1;
Button27.Click;
{if RadioButton1.TabStop=true then
begin

//uc:=1;
//Button27.Click;;
end; }
//edit29.text := DatetimetoStr(IncMonth(datetimepicker1.date,1));
//DateTimePicker1:=IncDay(DateTimePicker1.date,1);
//DateTimePicker1.date 1;
end;

procedure TForm1.Button34Click(Sender: TObject);
begin
//form4.Edit1.Text:=DBText12.Caption;
//form4.Edit2.Text:=DBText1.Caption;
Button3.Click;

form1.PageControl3.TabIndex:=0;
form1.PageControl3.ActivePage.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=dbtext1.Caption;
edit2.Text:=dbtext2.Caption;
edit3.Text:=dbtext3.Caption;
edit4.Text:=dbtext4.Caption;
edit5.Text:=dbtext5.Caption;
edit6.Text:=dbtext6.Caption;
edit7.Text:=dbtext7.Caption;
edit8.Text:=dbtext8.Caption;
edit9.Text:=dbtext9.Caption;
edit10.Text:=dbtext10.Caption;
edit11.Text:=dbtext11.Caption;
edit16.Text:=DBText12.Caption;
end;

procedure TForm1.Button42Click(Sender: TObject);
begin
form9.show;
end;

procedure TForm1.Button43Click(Sender: TObject);
begin
form10.Edit1.Text:=ADOQuery6.FieldValues['Zid'];
form10.Edit2.Text:=ADOQuery6.FieldValues['Z名字'];
form10.Edit3.Text:=ADOQuery6.FieldValues['Z账目内容'];
form10.Edit4.Text:=ADOQuery6.FieldValues['Z金额'];
form10.Edit5.Text:=DateToStr(Date());
form10.Edit6.Text:=ADOQuery6.FieldValues['Zuid'];
form10.Show;
end;

procedure TForm1.Button44Click(Sender: TObject);
begin
form14.show;
end;

procedure TForm1.Button45Click(Sender: TObject);
begin
form14.Show;
end;

procedure TForm1.Button46Click(Sender: TObject);
begin
xyinf.show;
end;

procedure TForm1.Button47Click(Sender: TObject);
begin
ADOQuery6.Close;
ADOQuery6.Open;
end;

procedure TForm1.Button48Click(Sender: TObject);
begin
form10.Edit6.Text:=ADOQuery5.FieldValues['uid'];
form10.Edit2.Text:=ADOQuery5.FieldValues['u名字'];
form10.Edit3.Text:=ADOQuery6.FieldValues['Z账目内容'];
form10.Edit4.Text:=ADOQuery6.FieldValues['Z金额'];
form10.Edit5.Text:=DateToStr(Date());
//form10.Edit6.Text:=ADOQuery6.FieldValues['Zuid'];
form10.Show;
end;

procedure TForm1.Button49Click(Sender: TObject);
begin
form10.Edit6.Text:=ADOQuery1.FieldValues['uid'];
form10.Edit2.Text:=ADOQuery1.FieldValues['名字'];
form10.Edit3.Text:=ADOQuery6.FieldValues['Z账目内容'];
form10.Edit4.Text:=ADOQuery6.FieldValues['Z金额'];
form10.Edit5.Text:=DateToStr(Date());
//form10.Edit6.Text:=ADOQuery6.FieldValues['Zuid'];
form10.Show;
end;

procedure TForm1.Button4Click(Sender: TObject);

var
 ed5:String;
begin
ADOQuery1.Close;

ed5:='update juser set '    '名字=' '''' edit1.text '''' ','
                      '电话=' '''' edit2.text '''' ','
                      '驾校=' '''' edit3.text '''' ','
                      '考场=' '''' edit4.text '''' ','
                      '考试日期=' ''''
                      StringReplace (edit5.Text, '/', '-', [rfReplaceAll])
                        ''''

                      ',' '模拟日期=' ''''
                      StringReplace (edit6.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      '开始练车='
                      ''''
                      StringReplace (edit7.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      '结束练车='
                      ''''
                      StringReplace (edit8.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      '练车几天=' '''' edit9.text '''' ','
                      '第几次考=' '''' edit10.text '''' ','
                      '是否通过=' '''' edit11.text ''''

                      ' where uid= ' edit16.Text ;
//edit15.Text:=ed5;

ADOQuery7.SQL.Text:= ed5;
ADOQuery7.ExecSQL;
ADOQuery1.Open;
form1.PageControl3.TabIndex:=2;
form1.PageControl3.ActivePage.Show;
end;

procedure TForm1.Button50Click(Sender: TObject);
begin
form9.Edit2.Text:=ADOQuery5.FieldValues['uid'];
form9.Button4.Click;
form9.Show;
end;

procedure TForm1.Button51Click(Sender: TObject);
var
   namestr:string;
begin
//ADOQuery1.First;
namestr:=edit30.Text ;
  ADOQuery1.Next;
while not ADOQuery1.Eof do
begin
  if  Pos(namestr,ADOQuery1.FieldValues['名字'])>0  then
  begin
  Break;

  end;
  ADOQuery1.Next;
end;
end;

procedure TForm1.Button52Click(Sender: TObject);
begin
ADOQuery1.First;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit12.Text:='2018/12/8';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin

//2018 / 12 / 8
edit13.Text:=LeftStr(edit12.Text,4)
              '-'
             MidStr(edit12.Text,6,2)
              '-'
             MidStr(edit12.Text,9,2);



end;

procedure TForm1.Button7Click(Sender: TObject);
begin
edit14.Text:=TimeToStr(Time());
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit12.Text:=StringReplace (edit12.Text, '/', '-', [rfReplaceAll])
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
form6.show;
//edit15.Text:=DBText12.Caption;
{
'update juser set '
                      '名字=' '''' edit1.text '''' ','
                      '电话=' '''' edit2.text '''' ','
                      '驾校=' '''' edit3.text '''' ','
                      '考场=' '''' edit4.text '''' ','
                      '考试日期=' ''''
                      StringReplace (edit5.Text, '/', '-', [rfReplaceAll])
                        ''''
                      { ','
                      '模拟日期=' '''' edit6.text '''' ','
                      '开始练车=' '''' edit7.text '''' ','
                      '结束练车=' '''' edit8.text '''' ','
                      '练车几天=' '''' edit9.text '''' ','
                      '第几次考=' '''' edit10.text '''' ','
                      '是否通过=' '''' edit11.text '''' 

                      ' where uid=' DBText12.Caption;   }
end;

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
edit16.Text:=DBText12.Caption;
Label16.Caption:=DBText1.Caption;
Label17.Caption:=DBText12.Caption;

//显示复制的信息
edit30.Text:='k3' DateToStr(ADOQuery1.FieldValues['考试日期'])
              ADOQuery1.FieldValues['名字']
              ADOQuery1.FieldValues['驾校']
              ADOQuery1.FieldValues['考场'] ;

Edit30.Text:=StringReplace(edit30.Text , '/', '.', [rfReplaceAll]);
Edit30.Text:=StringReplace(edit30.Text , '201', '1', [rfReplaceAll]);
Edit30.Text:=StringReplace(edit30.Text , '驾校', '', [rfReplaceAll]);
Edit30.Text:=StringReplace(edit30.Text , '考场', '', [rfReplaceAll]);
Edit31.Text:=ADOQuery1.FieldValues['电话'];



// StringReplace (DateToStr(ADOQuery1.FieldValues['考试日期']), '/', '.', [rfReplaceAll])
if not ADOQuery1.Eof then
begin
xyinf.Edit1.Text:=ADOQuery1.FieldValues['uid'];
xyinf.Button1.Click;
end;
//GroupBox2.Caption:='学员名：' DBText1.Caption;
//Edit17.Text:= DBText1.Caption;
//Edit22.Text:=DBText12.Caption;

end;

procedure TForm1.DBGrid2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

if not ADOQuery5.Eof then
begin
xyinf.Edit1.Text:=ADOQuery5.FieldValues['uid'];
xyinf.Button1.Click;
end;

end;

procedure TForm1.Button10Click(Sender: TObject);
var
 ed6:String;
begin
ADOQuery1.Close;

ed6:='insert into juser '
                      '(名字,电话,驾校,考场,考试日期,模拟日期,开始练车,结束练车,练车几天,第几次考,'
                      '是否通过)'
                      'values('
                      '''' edit1.text '''' ','
                      '''' edit2.text '''' ','
                      '''' edit3.text '''' ','
                      '''' edit4.text '''' ','
                      ''''
                      StringReplace (edit5.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      ''''
                      StringReplace (edit6.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      ''''
                      StringReplace (edit7.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      ''''
                      StringReplace (edit8.Text, '/', '-', [rfReplaceAll])
                      '''' ','
                      '''' edit9.text '''' ','
                      '''' edit10.text '''' ','
                      '''' edit11.text ''''

                      ')' ;
//edit15.Text:=ed6;

ADOQuery7.SQL.Text:= ed6;
ADOQuery7.ExecSQL;
ADOQuery1.Open;
Button30.Click;
end;

procedure TForm1.Button11Click(Sender: TObject);

begin
form2.Show;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit26.Text:=datetostr(date()) ;
edit27.Text:=datetostr(date()) ;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
edit23.Text:='';
edit24.Text:='';
edit26.Text:='';
edit27.Text:='';
edit28.Text:='';
end;

procedure TForm1.DBGrid3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
//Edit21.Text:=DBText17.Caption;

if not ADOQuery6.Eof then
begin
xyinf.Edit1.Text:=ADOQuery6.FieldValues['zuid'];
xyinf.Button1.Click;
end;


end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
Edit5.Text:=DateToStr(DateTimePicker1.date);
end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
Edit6.Text:=DateToStr(DateTimePicker2.date);
end;

procedure TForm1.DateTimePicker3Change(Sender: TObject);
begin
Edit7.Text:=DateToStr(DateTimePicker3.date);
end;

procedure TForm1.DateTimePicker4Change(Sender: TObject);
begin
Edit8.Text:=DateToStr(DateTimePicker4.date);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit9.Text:=ComboBox1.Text;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
edit19.Text:=ComboBox2.Text;
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
edit3.Text:=ComboBox3.Text;
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
Edit4.Text:=ComboBox4.Text;
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
edit11.Text:=ComboBox5.Text;
end;

procedure TForm1.ComboBox6Change(Sender: TObject);
begin
edit20.Text:=ComboBox6.Text;
end;

procedure TForm1.ComboBox7Change(Sender: TObject);
begin
edit23.Text:=ComboBox7.Text;
end;

procedure TForm1.ComboBox9Change(Sender: TObject);
begin

edit24.Text:=ComboBox9.Text;
end;

procedure TForm1.ComboBox9Enter(Sender: TObject);
begin
combobox9.DroppedDown:=true;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
//edit17.Text:=DBText13.Caption;
form3.Show;
end;

procedure TForm1.Button17Click(Sender: TObject);

var
 ed5:String;
begin
ADOQuery3.Close;

ed5:='update ulianche set '
                      'uid=' edit22.text ','
                      'u名字=' '''' Edit17.Text '''' ','
                      'u练车日期=' ''''
                      StringReplace (edit18.Text, '/', '-', [rfReplaceAll])
                        '''' ','
                      'u练车时间=' '''' edit19.text '''' ','
                      'u教练=' '''' edit20.text ''''
                      ' where usid= ' edit21.Text ;
edit15.Text:=ed5;

ADOQuery3.SQL.Text:= ed5;
ADOQuery3.ExecSQL;
ADOQuery3.SQL.Text:='select * from ulianche';
ADOQuery3.Open;

end;

procedure TForm1.Button18Click(Sender: TObject);

var
 ed5:String;
begin
ADOQuery3.Close;

ed5:='insert into ulianche '
                      '(uid,u名字,u练车日期,u练车时间,u教练)'
                      'values('
                      edit22.Text ','
                      '''' edit17.text '''' ','

                      ''''
                      StringReplace (edit18.Text, '/', '-', [rfReplaceAll])
                        '''' ','
                      '''' edit19.text '''' ','
                      '''' edit20.text '''' ')'
                      ;
edit15.Text:=ed5;

ADOQuery3.SQL.Text:= ed5;
ADOQuery3.ExecSQL;
ADOQuery3.SQL.Text:='select * from ulianche';
ADOQuery3.Open;
end;

procedure TForm1.DateTimePicker5Change(Sender: TObject);
begin
Edit18.Text:=DateToStr(DateTimePicker5.date);
end;

procedure TForm1.DateTimePicker6Change(Sender: TObject);
begin
edit26.Text:= datetostr( DateTimePicker6.Date);
end;

procedure TForm1.DateTimePicker7Change(Sender: TObject);
begin
edit15.Text:=datetostr( DateTimePicker7.date);
ADOQuery3.Close;
ADOQuery3.SQL.Text:='select * from ulianche where u练车日期 =  #' edit15.Text '# ';
ADOQuery3.Open;


end;

procedure TForm1.DateTimePicker8Change(Sender: TObject);
begin
edit27.Text:= datetostr( DateTimePicker8.Date);
end;

procedure TForm1.DateTimePicker9Change(Sender: TObject);
begin
edit28.Text:=datetostr(DateTimePicker9.Date)
end;

end.