?? bm_zhiyuan_addu.pas
字號:
unit BM_ZHIYUAN_ADDU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, DBCtrls, Mask, Buttons, Db, DBClient, jpeg;
type
TBM_ZHIYUAN_ADDF = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label5: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label12: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Image1: TImage;
Edit9: TEdit;
cb1: TComboBox;
Label10: TLabel;
Memo1: TMemo;
cb0: TComboBox;
SpeedButton3: TSpeedButton;
OpenDialog1: TOpenDialog;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
procedure insertimage;
public
{ Public declarations }
end;
var
BM_ZHIYUAN_ADDF: TBM_ZHIYUAN_ADDF;
MStream:TMemoryStream;
implementation
uses BM_DMU, BM_ZHIYUANU;
{$R *.DFM}
procedure TBM_ZHIYUAN_ADDF.SpeedButton1Click(Sender: TObject);
var
s_zgbh: string;
begin
if trim(edit1.text) = '' then
begin
application.messagebox('職工編號不能為空', '物資管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edit1.setfocus;
exit;
end;
s_zgbh := edit1.Text;
DM.ZHIGONG.IndexFieldNames := '職工編號';
DM.ZHIGONG.Refresh;
if DM.ZHIGONG.state = dsinsert then
begin
if DM.ZHIGONG.Locate('職工編號',s_zgbh,[]) then
begin
application.MessageBox('職工編號已重復', '北明辦公管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edit1.SetFocus;
exit;
end;
end;
if trim(cb0.text) = '' then
begin
application.messagebox('所屬部門編碼不能為空', '北明辦公管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edit5.setfocus;
exit;
end;
if trim(edit3.text) = '' then
begin
application.messagebox('職工姓名不能為空', '物資管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edit3.setfocus;
exit;
end;
with DM.ZHIGONG do
begin
append;
fieldbyname('職工編號').AsString :=edit1.Text ;
fieldbyname('部門編碼').AsString :=cb0.Text ;
fieldbyname('職工姓名').AsString :=edit3.Text ;
fieldbyname('性別').AsString :=cb1.Text ;
fieldbyname('出生年月').AsString :=edit5.Text ;
fieldbyname('政治面貌').AsString :=edit6.Text ;
fieldbyname('職稱').AsString :=edit7.Text ;
fieldbyname('職務').AsString :=edit8.Text ;
fieldbyname('職工屬性').AsString :=edit9.Text ;
try
insertimage;
TBlobField(FieldByName('照片')).LoadFromStream(MStream);
Post;
except
ON E:Exception do
begin
MStream.Free;
Showmessage(E.Message);
Exit;
end;
end;
MStream.Free;
end;
BM_ZHIYUANF.frashform;
close;
end;
procedure TBM_ZHIYUAN_ADDF.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TBM_ZHIYUAN_ADDF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.ZHIGONG.cancel;
end;
procedure TBM_ZHIYUAN_ADDF.BitBtn1Click(Sender: TObject);
begin
DM.ZHIGONG.FieldByName('所屬部門編碼').Value := '678';
end;
procedure TBM_ZHIYUAN_ADDF.SpeedButton3Click(Sender: TObject);
var
bmp : TBitMap;
begin
if OpenDialog1.Execute then
begin
bmp := TBitMap.Create;
bmp.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Bitmap := bmp;
bmp.Free;
end;
end;
procedure TBM_ZHIYUAN_ADDF.insertimage;
begin
MStream := TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(MStream);
MStream.Position := 0;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -