?? unit2.pas
字號:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, ComCtrls,
Buttons, FR_DSet, FR_DBSet, FR_Class, FR_Shape, FR_Chart, FR_BarC,
FR_Rich, FR_RRect,SHELLAPI,comobj;
type
TShebei_F = class(TForm)
Bevel1: TBevel;
DBGrid1: TDBGrid;
ComboBox1: TComboBox;
x: TGroupBox;
BH_Bt: TEdit;
XH_Bt: TEdit;
GroupBox2: TGroupBox;
MCH_Bt: TEdit;
JYLB_Bt: TEdit;
CLJD_Bt: TEdit;
CJDH_Bt: TEdit;
SJDH_Bt: TEdit;
GYS_Bt: TEdit;
SCCJ_Bt: TEdit;
FBL_Bt: TEdit;
ZHT_Bt: TEdit;
XLH_Bt: TEdit;
CLFW_Bt: TEdit;
BGR_Bt: TEdit;
JG_Bt: TEdit;
CFDD_Bt: TEdit;
DABH_Bt: TEdit;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
StaticText16: TStaticText;
StaticText2: TStaticText;
StaticText17: TStaticText;
StaticText18: TStaticText;
StaticText19: TStaticText;
StaticText20: TStaticText;
StaticText21: TStaticText;
Button1: TButton;
Button2: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ComboBox2: TComboBox;
StatusBar1: TStatusBar;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frShapeObject1: TfrShapeObject;
Button3: TButton;
frBarCodeObject1: TfrBarCodeObject;
frShapeObject2: TfrShapeObject;
frRichObject1: TfrRichObject;
StaticText22: TStaticText;
CheckBox1: TCheckBox;
StaticText23: TStaticText;
CheckBox2: TCheckBox;
Button4: TButton;
Edit1: TEdit;
frRoundRectObject1: TfrRoundRectObject;
Edit2: TEdit;
Button5: TButton;
StaticText1: TStaticText;
StaticText24: TStaticText;
StaticText25: TStaticText;
frReport2: TfrReport;
frReport3: TfrReport;
sopn: TEdit;
zjgcn: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
bz: TMemo;
Label4: TLabel;
procedure ClearAll;
procedure Button1Click(Sender: TObject);
procedure JG_BtKeyPress(Sender: TObject; var Key: Char);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure SpeedButton1Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Shebei_F: TShebei_F;
implementation
uses Unit4;
{$R *.dfm}
procedure Tshebei_F.ClearAll;
begin
bh_bt.Text:='';
mch_bt.Text:='';
combobox2.Text:='';
xh_bt.Text:='';
xlh_bt.Text:='';
cfdd_bt.Text:='';
jylb_bt.Text:='';
zht_bt.Text:='';
jg_bt.Text:='';
clfw_bt.Text:='';
fbl_bt.Text:='';
dabh_bt.Text:='';
cljd_bt.Text:='';
maskedit1.Text:='9999-12-31';
maskedit2.Text:='9999-12-31';
sccj_bt.Text:='';
cjdh_bt.Text:='';
gys_bt.Text:='';
sjdh_bt.Text:='';
bgr_bt.Text:='';
checkbox1.Checked:=false;
checkbox2.Checked:=false;
sopn.Text:='';
zjgcn.Text:='';
bz.Text:='';
end;
procedure TShebei_F.Button1Click(Sender: TObject);
var
sql:string;
adoquery2:TAdoquery;
searchOptions:TlocateOptions;
begin
if RadioButton1.Checked then
begin
AdoQuery1.Close;
Adoquery2:=TAdoquery.Create(self);
Adoquery2.Connection:=adoconnection1;
if (trim(bh_bt.text)='')then
begin
MessageBox(handle,'唯一號不能少！','警告',MB_ok or MB_ICONwarning);
exit;
end;
adoquery2.sql.Add('select * from jibenxinxi order by 唯一號');
adoquery2.Open;
if adoquery2.Locate(adoquery2.Fields[0].FieldName,bh_bt.Text,searchOptions)
then
begin
Application.MessageBox('這個唯一號已經存在！','提示',0+64);
exit;
end;
if zjgcn.Text<>'' then
if adoquery2.Locate('自檢規程號',zjgcn.Text,searchOptions)
then
begin
Application.MessageBox('已經存在相同的自檢規程號！','提示',0+64);
exit;
end;
if sopn.Text<>'' then
if adoquery2.Locate('sop號',sopn.Text,searchOptions)
then
begin
Application.MessageBox('已經存在相同的SOP號！','提示',0+64);
exit;
end;
if (trim(jg_Bt.Text)='') then
begin
messagedlg('儀器不會白送給您!^_^',mtinformation,[mbOK],0);
jg_bt.SetFocus;
exit;
end;
if (trim(combobox2.Text)='') then
begin
messagedlg('哪個科室用的？',mtinformation,[mbOK],0);
exit;
end;
if (trim(mch_Bt.Text)='') then
begin
messagedlg('好歹取個名字吧~',mtinformation,[mbOK],0);
mch_bt.SetFocus;
exit;
end;
adoquery2.close;
Adoquery2.sql.clear;
adoquery2.sql.add('insert into JibenXinxi values(:BH,:MCH,:XH,:XLH,:JYLB,:ZHT,:CLFW,:FBL,:CLJD,:SCCJ,:CJDH,:GYS,:SJDH,:DATE1,:DATE2,:KS,:CFDD,:BGR,:JG,:DABH,:sop,:zjgc,:sopn,:zjgcn,:bz)');
adoquery2.Parameters.clear;
adoquery2.Parameters.CreateParameter('BH',ftstring,pdinput,20,BH_BT.text);
adoquery2.Parameters.CreateParameter('MCH',ftstring,pdinput,20,MCH_BT.text);
adoquery2.Parameters.CreateParameter('XH',ftstring,pdinput,20,XH_bT.text);
adoquery2.Parameters.CreateParameter('XLH',ftstring,pdinput,30,XLH_BT.text);
adoquery2.Parameters.CreateParameter('JYLB',ftstring,pdinput,20,JYLB_BT.text);
adoquery2.Parameters.CreateParameter('ZHT',ftstring,pdinput,20,ZHT_bT.Text);
adoquery2.Parameters.CreateParameter('CLFW',ftstring,pdinput,20,CLFW_BT.Text);
adoquery2.Parameters.CreateParameter('FBL',ftstring,pdinput,20,FBL_BT.Text);
adoquery2.Parameters.CreateParameter('CLJD',ftstring,pdinput,20,CLJD_BT.Text);
adoquery2.Parameters.CreateParameter('SCCJ',ftstring,pdinput,20,SCCJ_BT.Text);
adoquery2.Parameters.CreateParameter('CJDH',ftstring,pdinput,20,CJDH_BT.Text);
adoquery2.Parameters.CreateParameter('GYS',ftstring,pdinput,20,GYS_bt.Text);
adoquery2.Parameters.CreateParameter('SJDH',ftstring,pdinput,20,SJDH_bt.Text);
adoquery2.Parameters.CreateParameter('DATE1',ftDATETIME,pdinput,8,STRTODATE(MASKEDIT1.Text));
adoquery2.Parameters.CreateParameter('DATE2',ftDATETIME,pdinput,8,STRTODATE(MASKEDIT2.Text));
adoquery2.Parameters.CreateParameter('KS',ftstring,pdinput,20,combobox2.Text);
adoquery2.Parameters.CreateParameter('CFDD',ftstring,pdinput,20,CFDD_BT.Text);
adoquery2.Parameters.CreateParameter('BGR',ftstring,pdinput,20,BGR_bt.Text);
adoquery2.Parameters.CreateParameter('JG',ftCurrency,pdinput,20,strtofloat(JG_bt.Text));
adoquery2.Parameters.CreateParameter('DABH',ftstring,pdinput,20,DABH_bt.Text);
adoquery2.Parameters.CreateParameter('sop',ftboolean,pdinput,1,checkbox1.Checked);
adoquery2.Parameters.CreateParameter('zjgc',ftboolean,pdinput,1,checkbox2.Checked);
adoquery2.Parameters.CreateParameter('sopn',ftstring,pdinput,20,sopn.Text);
adoquery2.Parameters.CreateParameter('zjgcn',ftstring,pdinput,20,zjgcn.Text);
adoquery2.Parameters.CreateParameter('bz',ftstring,pdinput,100,bz.Text);
adoquery2.Prepared;
adoquery2.ExecSQL;
ADOquery1.Open;
application.MessageBox('已經添加','提示',0+64);
ClearAll;
end
else if radiobutton2.Checked then
begin
AdoQuery1.Close;
adoquery2:=TAdoquery.Create(self);
adoquery2.Connection:=adoconnection1;
if (trim(bh_bt.text)='')then
begin
messagedlg('請選定記錄！！',mtwarning,[mbOK],0);
exit;
end;
adoquery2.sql.Add('select * from jibenxinxi order by 唯一號');
adoquery2.Open;
if not adoquery2.Locate(adoquery2.Fields[0].FieldName,bh_bt.Text,searchOptions)
then
begin
messagedlg('這個記錄不存在！！',mtwarning,[mbOK],0);
exit;
end;
adoquery2.Close;
adoquery2.SQL.Clear;
sql:='delete from jibenxinxi where 唯一號="'+bh_bt.Text+'"';
adoquery2.SQL.Add(sql);
adoquery2.ExecSQL;
adoquery1.Open;
showmessage('已經刪除！');
clearall;
end
else if radiobutton3.Checked then
begin
AdoQuery1.Close;
adoquery2:=TAdoquery.Create(self);
adoquery2.Connection:=adoconnection1;
if (trim(bh_bt.text)='')then
begin
messagedlg('請選定記錄！！',mtwarning,[mbOK],0);
exit;
end;
adoquery2.sql.Add('select * from jibenxinxi order by 唯一號');
adoquery2.Open;
if not adoquery2.Locate(adoquery2.Fields[0].FieldName,bh_bt.Text,searchOptions)
then
begin
messagedlg('這個記錄不存在！！',mtwarning,[mbOK],0);
exit;
end;
with adoquery2 do
begin
try
edit;
fieldbyname('唯一號').AsString:=bh_bt.Text;
fieldbyname('名稱').AsString:=mch_bt.Text;
fieldbyname('科室').AsString:=combobox2.Text;
fieldbyname('型號').AsString:=xh_bt.Text;
fieldbyname('產品系列號').AsString:=xlh_bt.Text;
fieldbyname('存放地點').AsString:=cfdd_bt.Text;
fieldbyname('檢定方式').AsString:=jylb_bt.Text;
fieldbyname('狀態').AsString:=zht_bt.Text;
fieldbyname('價格').AsCurrency:=strtofloat(jg_bt.Text);
fieldbyname('測量范圍').AsString:=clfw_bt.Text;
fieldbyname('分辨率').AsString:=fbl_bt.Text;
fieldbyname('檔案編號').AsString:=dabh_bt.Text;
fieldbyname('測量精度').AsString:=cljd_bt.Text;
fieldbyname('保管人').AsString:=bgr_bt.Text;
fieldbyname('購入日期').AsDateTime:=strtodate(maskedit1.Text);
fieldbyname('生產廠家').AsString:=sccj_bt.Text;
fieldbyname('廠家電話').AsString:=cjdh_bt.Text;
fieldbyname('使用日期').AsDateTime:=strtodate(maskedit2.Text);
fieldbyname('供應商').AsString:=gys_bt.Text;
fieldbyname('商家電話').AsString:=sjdh_bt.Text;
fieldbyname('有否SOP').AsBoolean:=checkbox1.Checked;
fieldbyname('自檢規程').AsBoolean:=checkbox2.Checked;
fieldbyname('SOP號').AsString:=sopn.Text;
fieldbyname('自檢規程號').AsString:=zjgcn.Text;
fieldbyname('備注').AsString:=bz.Text;
post;
Application.MessageBox('修改成功！','提示',0+64);
Except
Application.MessageBox('系統出錯,注意數據輸入完整','提示',0+64);
close;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -