uzljs_ed.pas

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

    Close;
    SQL.Clear;
    SQL.Add('Select * From ZLJS WHERE HTH='''+dm.ADODSZLJS.fieldbyname('hth').AsString+'''');
    OPEN;
    EDIT;
    FIELDBYNAME('scrq').AsString := Edit16.Text;
    FIELDBYNAME('scsj').AsString := Edit17.Text;
    FIELDBYNAME('sclc').AsString := Edit18.Text;
    FIELDBYNAME('csxs').AsString := Edit20.Text;
    FIELDBYNAME('cssf').AsString := Edit21.Text;
    FIELDBYNAME('csslc').AsString := Edit23.Text;
    FIELDBYNAME('csssf').AsString := Edit24.Text;
    FIELDBYNAME('qjy').AsString := Edit25.Text;
    FIELDBYNAME('qyf').AsString := Edit26.Text;
    FIELDBYNAME('csf').AsString := Edit27.Text;
    FIELDBYNAME('djf').AsString := Edit28.Text;
    FIELDBYNAME('wyj').AsString := Edit29.Text;
    FIELDBYNAME('wzyj').AsString := Edit30.Text;
    FIELDBYNAME('qtfy').AsString := Edit31.Text;
    FIELDBYNAME('yingsje').AsString := Edit32.Text;
    FIELDBYNAME('ytje').AsString := Edit33.Text;
    FIELDBYNAME('sssje').AsString := Edit34.Text;
    FIELDBYNAME('jkr').AsString := Edit35.Text;
    FIELDBYNAME('skrq').AsString := Edit36.Text;
    FIELDBYNAME('jsr').AsString := Edit37.Text;
    FIELDBYNAME('bbz').AsString := Memo1.Text;
    FIELDBYNAME('zkjq').AsBoolean := CheckBox1.Checked;
    FIELDBYNAME('SFXZ').AsBoolean:=CheckBox2.Checked;
    UpdateRecord;
    post;
  end;
end;
procedure TZLJS_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;
  Memo1.Color := clWindow;
  Memo1.ReadOnly := False;
  SpeedButton1.Enabled:=False;
  SpeedButton3.Enabled:=True;
  Panel1.Enabled:=true;
end;
procedure TZLJS_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;
  end;
  DateTimePicker1.Color:=$00d8d8d8;
  DateTimePicker1.Enabled:=False;
  DateTimePicker2.Color:=$00d8d8d8;
  DateTimePicker2.Enabled:=False;
  DateTimePicker3.Color:=$00d8d8d8;
  DateTimePicker3.Enabled:=False;
  Memo1.Color := $00D8D8D8;
  Memo1.ReadOnly := true;
  SpeedButton1.Enabled:=True;
  SpeedButton3.Enabled:=False;
  Panel1.Enabled:=False;
end;
procedure TZLJS_ED.CLS;
var
  i:integer;
begin
  for i:=ComponentCount-1 downto 0 do
  begin
    if(Components[i] is tedit) then
      TEdit(Components[i]).Clear;
  end;
  Memo1.Clear;
end;

procedure TZLJS_ED.DateTimePicker1Change(Sender: TObject);
begin
  Edit16.Text:=DateToStr(DateTimePicker1.Date);
end;

procedure TZLJS_ED.DateTimePicker2Change(Sender: TObject);
begin
  Edit17.Text:=TimeToStr(DateTimePicker2.Time);
end;

procedure TZLJS_ED.DateTimePicker3Change(Sender: TObject);
begin
  Edit36.Text:=DateToStr(DateTimePicker3.Date);
end;

procedure TZLJS_ED.SpeedButton4Click(Sender: TObject);
begin
  DIS;
  Close;
end;

procedure TZLJS_ED.FormCreate(Sender: TObject);
begin
  with DM.QZLJS do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from ZLJS');
    Open;
  end;
  DM.ADODSZLJS.Open;
end;

procedure TZLJS_ED.FormShow(Sender: TObject);
begin
  DIS;
  if edit16.Text<>'' then
    DateTimePicker1.Date:=StrToDate(Edit16.Text)
  else
    Edit16.Text:=Trim(Edit16.Text);
  if Edit17.Text<>'' then
    DateTimePicker2.Time:=StrToTime(Edit17.Text)
  else
    Edit17.Text:=Trim(Edit17.Text);
  if Edit36.Text<>'' then
    DateTimePicker3.Date:=StrToDate(Edit36.Text)
  else
    Edit36.Text:=Trim(Edit36.Text);
//  DateTimePicker1.Date:=DM.ADODSZLJS.FieldByName('scrq').Value;
//  DateTimePicker2.Time:=DM.ADODSZLJS.FieldByName('scsj').Value;
//  DateTimePicker3.Date:=DM.ADODSZLJS.FieldByName('skrq').Value;
end;

procedure TZLJS_ED.SpeedButton1Click(Sender: TObject);
begin
  ENA;
  Edit20.Text:='0';
  Edit21.Text:='0';
  Edit23.Text:='0';
  Edit24.Text:='0';
  Edit25.Text:='0';
  Edit26.Text:='0';
  Edit27.Text:='0';
  Edit28.Text:='0';
  Edit29.Text:='0';
  Edit30.Text:='0';
  Edit31.Text:='0';
  Edit32.Text:='0';
  Edit33.Text:='0';
  Edit34.Text:='0';
  DateTimePicker1.Date:=now;
  DateTimePicker2.Time:=now;
  DateTimePicker3.Date:=now;
  DateTimePicker1.SetFocus;
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★《Delphi编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者
 的技术最全、案例最多和使用最方便的Delphi编程技术词典。它包含30个实际项目的开发过
 程和源码（每月新增加一个实际开发项目）；最完整、最全面、最实用的函数、控件和基础
 技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。
 价值无限，服务无限。技术服务及升级请访问www.cccxy.com , 电话：[phone],49
 78982

 ★★《Delphi编程词典》软件源码项目部分对所有代码都作了详细的注释和说明，同时提供
 了所有源码项目详尽、完整的开发过程文档和录像。技术支持及升级请访问www.cccxy.com
 电话：[phone]

 ★★《Delphi编程词典》对所有实例的开发过程和设计思路都作了详细的介绍。技术支持及
 升级请访问www.cccxy.com   电话：[phone]

 ★★如果您在使用《Delphi编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术
 服务网站www.cccxy.com或拨打我公司电话[phone]），我们愿为广大编程
 者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问
 www.cccxy.com。电话：[phone]

※--------※--------※--------※--------※--------※--------※--------※--------※}

procedure TZLJS_ED.SpeedButton2Click(Sender: TObject);
begin
  if (cansave) then
  begin
    Posting; //  提交存盘
    DIS; //  使所有的控件不可用
    Application.MessageBox('保存成功!','提示!',64);
    SpeedButton1.Enabled:=False;
    SpeedButton2.Enabled:=False;
    SpeedButton3.Enabled:=False;
    DM.ADODSZLJS.Close;
    DM.ADODSZLJS.Open;
  end;
end;

procedure TZLJS_ED.SpeedButton3Click(Sender: TObject);
begin
  DIS;
  ZLJS_ED.GetAll;
end;

procedure TZLJS_ED.Edit18Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit20Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit21Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit23Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit24Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit26Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit27Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit25Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit28Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit29Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit30Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit31Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit32Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit33Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit34Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit35Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit37Change(Sender: TObject);
begin
tr
end;

procedure TZLJS_ED.Edit18KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit20.SetFocus;
end;

procedure TZLJS_ED.Edit20KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit23.SetFocus;
end;

procedure TZLJS_ED.Edit23KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit25.SetFocus;
end;

procedure TZLJS_ED.Edit25KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit26.SetFocus;
end;

procedure TZLJS_ED.Edit26KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit27.SetFocus;
end;

procedure TZLJS_ED.Edit27KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then
    key:=#0;
  if key=#13 then
    Edit28.SetFocus;
end;

procedure TZLJS_ED.Edit28KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.']) then