?? jgwhunt.pas
字號:
unit jgwhunt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls, DB;
type
Tjgwhfrm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
GroupBox2: TGroupBox;
DBGridEh1: TDBGridEh;
Edit2: TEdit;
Label2: TLabel;
BitBtn2: TBitBtn;
DataSource1: TDataSource;
BitBtn3: TBitBtn;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGridEh1CellClick(Column: TColumnEh);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Enter(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit2Enter(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
jgwhfrm: Tjgwhfrm;
implementation
uses data;
{$R *.dfm}
var
godno:string;
procedure Tjgwhfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;
procedure Tjgwhfrm.BitBtn1Click(Sender: TObject);
begin
with dataman.vipQuery do
begin
close;
sql.Clear;
sql.Add('select 貨物條形碼,單價 from kc where 貨物條形碼='''+edit1.text+'''');
open;
end;
end;
procedure Tjgwhfrm.DBGridEh1CellClick(Column: TColumnEh);
begin
edit2.Text:=floattostr(dbgrideh1.Fields[1].Value);
godno:=dbgrideh1.Fields[0].Value;
end;
procedure Tjgwhfrm.BitBtn2Click(Sender: TObject);
begin
try
dataman.ADOCon.BeginTrans;
with dataman.xfztQuery do
begin
close;
sql.Clear;
sql.Add('update kc set 單價=:xg where 貨物條形碼=:gno');
parameters.ParamByName('xg').Value:=strtofloat(trim(edit2.Text));
parameters.ParamByName('gno').Value:=godno;
execsql;
end;
dataman.ADOCon.CommitTrans;
showmessage('修改成功!');
except
begin
dataman.ADOCon.RollbackTrans;
showmessage('操作失敗!');
end;
end;
end;
procedure Tjgwhfrm.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure Tjgwhfrm.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
with dbgrideh1 do
begin
Canvas.Pen.Mode:=pmmask;
if gdSelected in State then
begin
Canvas.Brush.Color:=clinfobk;
Canvas.FillRect(Rect);
Canvas.Font.Color:=clred;
Canvas.Font.Style:=[fsBold];
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
procedure Tjgwhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
jgwhfrm:=nil;
jgwhfrm.Free;
end;
procedure Tjgwhfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Perform(CM_DialogKey,Vk_TAB,0);
key:=#0;
end;
end;
procedure Tjgwhfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;
procedure Tjgwhfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;
procedure Tjgwhfrm.Edit2Enter(Sender: TObject);
begin
Edit2.Color:=clSkyBlue;
end;
procedure Tjgwhfrm.Edit2Exit(Sender: TObject);
begin
Edit2.color:=clWindow;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -