xyda_u.pas

比较完整的系统 比较完整的系统

    image1.Picture.Graphic := jpegimage;
    finally
    jpegimage.Free ;
    end;    //end try12
    end;    //end begin12
  finally
  strm.Free ;
  end;     //end try1
end;

procedure Txyda.Table1BeforePost(DataSet: TDataSet);
begin
     if sdateedit1.text<>'    -  -  ' then
        table1.FieldValues['出生日期']:=strtodate(sdateedit1.text);
     if sdateedit2.text<>'    -  -  ' then
        table1.FieldValues['准考证日期']:=strtodate(sdateedit2.text);
     if sdateedit3.text<>'    -  -  ' then
        table1.FieldValues['报名时间']:=strtodate(sdateedit3.text);
     if sdateedit4.text<>'    -  -  ' then
        table1.FieldValues['进班时间']:=strtodate(sdateedit4.text);
     if sdateedit5.text<>'    -  -  ' then
        table1.FieldValues['预约考桩时间']:=strtodate(sdateedit5.text);
     if sdateedit6.text<>'    -  -  ' then
        table1.FieldValues['预约考路时间']:=strtodate(sdateedit6.text);
     if sdateedit7.text<>'    -  -  ' then
        table1.FieldValues['第二次付费日期']:=strtodate(sdateedit7.text);
     if sdateedit8.text<>'    -  -  ' then
        table1.FieldValues['科目一时间']:=strtodate(sdateedit8.text);
     if sdateedit9.text<>'    -  -  ' then
        table1.FieldValues['科目二时间']:=strtodate(sdateedit9.text);
     if sdateedit10.text<>'    -  -  ' then
        table1.FieldValues['科目三时间']:=strtodate(sdateedit10.text);

     table1.FieldValues['是否有效']:=DBCheckBox1.Checked;
     table1.FieldValues['IC卡']:=DBCheckBox2.checked;
     table1.FieldValues['人寿保险']:=dbcheckbox3.Checked;
     table1.FieldValues['加强性长训']:=dbcheckbox4.Checked;
     table1.FieldValues['伙食费']:=dbcheckbox5.Checked;
     table1.FieldValues['上车伙食费']:=dbcheckbox6.Checked;
     table1.FieldValues['补考费']:=dbcheckbox7.Checked;
     table1.FieldValues['照相费']:=dbcheckbox8.Checked;
     table1.FieldValues['跟班训练']:=dbcheckbox9.Checked;
     table1.FieldValues['节假日训练']:=dbcheckbox10.Checked;
     table1.FieldValues['即时训练']:=dbcheckbox11.Checked;
     table1.FieldValues['夜训']:=dbcheckbox12.Checked;
     table1.FieldValues['只要驾照不要技术']:=dbcheckbox13.Checked;
     table1.FieldValues['既要驾照又要技术']:=dbcheckbox14.Checked;
     table1.FieldValues['只要技术不要驾照']:=dbcheckbox15.Checked;
end;

procedure Txyda.Table1BeforeInsert(DataSet: TDataSet);
begin
     table1.DisableControls; //禁止控件在移动记录时刷新
     table1.Last;
     table1.Edit;
     xybh:=table1.Fieldbyname('学号').AsInteger+1;
     table1.EnableControls;
end;

procedure Txyda.Table1AfterInsert(DataSet: TDataSet);
begin
     //table1.FieldValues['学号']:=inttostr(i);
     dbedit1.Text:=inttostr(xybh);
     //dbedit1.Text:=formatfloat('100000',xybh); //生成6位学号
     Dbedit2.setfocus;
     DBCheckBox1.Checked:=false;
     DBCheckBox2.Checked:=false;
     DBCheckBox3.Checked:=false;
     DBCheckBox4.Checked:=false;
     DBCheckBox5.Checked:=false;
     DBCheckBox6.Checked:=false;
     DBCheckBox7.Checked:=false;
     DBCheckBox8.Checked:=false;
     DBCheckBox9.checked:=false;
     DBCheckBox10.Checked:=false;
     DBCheckBox11.Checked:=false;
     DBCheckBox12.Checked:=false;
     DBCheckBox13.Checked:=false;
     DBCheckBox14.Checked:=false;
     DBCheckBox15.Checked:=false;
     sdateedit1.text:='    -  -  ';
     dbedit52.Text:=datetostr(now);
end;

procedure Txyda.FormCreate(Sender: TObject);
begin
  table1.Close;
  table1.Open;
  table2.Close;
  table2.Open;
  adoconnection1.Connected := true;
  adoconnection1.LoginPrompt := false;
  adotable1.Open;
end;

procedure Txyda.DBComboBox1DropDown(Sender: TObject);
begin
    with dbcombobox1 do
     begin
     if Items.Count<=0 then
        begin
          Items.Add('男');
          Items.Add('女');
        end;
     end;
end;

procedure Txyda.sDateEdit1AcceptDate(Sender: TObject;
  var aDate: TDateTime; var CanAccept: Boolean);
begin
  table1.Edit;
end;

procedure Txyda.DBComboBox2DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox2.Items.Count<=0 then
   begin
    with dbcombobox2 do
     begin
     table2.First;
     //while table2.FieldValues['学员状态']<>null and (not table2.Eof) do
     while not table2.Eof and (table2.FieldValues['学员状态']<>null) do
        begin
          i:=table2.FieldValues['学员状态'];
          Items.Add(i);
          table2.Next;

        end;
     end;
  end;
end;

procedure Txyda.DBComboBox3DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox3.Items.Count<=0 then
   begin
    with dbcombobox3 do
     begin
     table2.First;
     while (table2.FieldValues['学习车型']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['学习车型'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.DBComboBox4DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox4.Items.Count<=0 then
   begin
    with dbcombobox4 do
     begin
     table2.First;
     while (table2.FieldValues['原有证照']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['原有证照'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.DBComboBox5DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox5.Items.Count<=0 then
   begin
    with dbcombobox5 do
     begin
     table2.First;
     while (table2.FieldValues['学费状态']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['学费状态'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.DBComboBox6DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox6.Items.Count<=0 then
   begin
    with dbcombobox6 do
     begin
     table2.First;
     while (table2.FieldValues['报名点']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['报名点'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.DBComboBox7DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox7.Items.Count<=0 then
   begin
    with dbcombobox7 do
     begin
     table2.First;
     while (table2.FieldValues['标准性长训']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['标准性长训'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.DBComboBox8DropDown(Sender: TObject);
var
   i:string;
begin
  if dbcombobox8.Items.Count<=0 then
   begin
    with dbcombobox8 do
     begin
     table2.First;
     while (table2.FieldValues['短训']<>null) and (not table2.Eof) do
        begin
          i:=table2.FieldValues['短训'];
          Items.Add(i);
          table2.Next;
        end;
     end;
  end;
end;

procedure Txyda.sDateEdit2AcceptDate(Sender: TObject;
  var aDate: TDateTime; var CanAccept: Boolean);
begin
  table1.Edit;
end;

////显示时必须分bmp and jpeg 两种情况处理，而保存可统一。
procedure Txyda.savetofileClick(Sender: TObject);
var
  tmpstr:string;
begin
   if image1.Picture.Graphic <> nil then
   begin
   tmpstr := openpicturedialog1.Filter;
   if adotable1.fieldbyname('isbmp').asstring ='1' then
   begin
   openpicturedialog1.Filter := 'Bitmaps (*.bmp)|*.bmp';
   if openpicturedialog1.Execute then
  image1.Picture.SaveToFile(openpicturedialog1.FileName+'.bmp');
  end
  else
  begin
   openpicturedialog1.Filter := 'JPEG Image File (*.jpg)|*.jpg';
   if openpicturedialog1.Execute then
  image1.Picture.SaveToFile(openpicturedialog1.FileName+'.jpg');
  end;
  openpicturedialog1.Filter := tmpstr;
  end;
end;

procedure Txyda.Image1DblClick(Sender: TObject);
begin
 if openpicturedialog1.Execute then
   image1.Picture.LoadFromFile(openpicturedialog1.FileName );
end;

 ////如下保存方法only to sql and access'data
procedure Txyda.savetodbClick(Sender: TObject);  //保存图像
var
  strm:tmemorystream;
  ext:string;
begin
   if image1.picture.Graphic <> nil then  //避免image1中无图像保存出错
   begin
   ext:=extractfileext(openpicturedialog1.FileName );
   strm := tmemorystream.Create ;
   try
   image1.Picture.Graphic.SaveToStream(strm);
   adotable1.Edit ;
   strm.Position :=0;
   //DBImage1.dataField :='';  //dbimage只能显示BMP，否则照片由BMP变为jpeg时会出错
   tblobfield(adotable1.FieldByName('照片')).LoadFromStream(strm);
   //如需直接由文件保存 TBlobField(adotable1.FieldByName('照片')).LoadFromFile(OpenPictureDialog1.FileName);
   //以下记录保存到数据库的图像格式
   if uppercase(ext) = '.BMP' then
   begin
   adotable1.FieldByName('isbmp').Value := 1;
   //dbimage1.dataField := '照片';
   end
   else if (uppercase(ext) = '.JPG') OR ( uppercase(ext) = '.JPEG') THEN
   adotable1.FieldByName('isbmp').Value := 0;
   adotable1.Post ;
   finally
   strm.Free ; //如果你选用TBLOBSTREAM类,程序运行到此语句会出错，可该语句前添入adotable1.edit
   end;
   end;

end;

procedure Txyda.Button1Click(Sender: TObject);
begin
  image1.Picture.Graphic := nil;
end;

procedure Txyda.clear_btnClick(Sender: TObject);
begin
    image1.Picture.Graphic:= nil;
end;

procedure Txyda.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    self.Destroy;
end;

procedure Txyda.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

end.