?? mrkhjb.pas
字號:
unit MRKHJB;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, ExtCtrls,
DB, inifiles;
type
TFRM_KHJB = class(TForm)
Panel2: TPanel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
ImageList1: TImageList;
Label4: TLabel;
Edit4: TEdit;
DataSource1: TDataSource;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure ToolButton13Click(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton6Click(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRM_KHJB: TFRM_KHJB;
tb : integer = 0;
implementation
uses DATA, MRKHJB_CX;
{$R *.dfm}
procedure TFRM_KHJB.ToolButton1Click(Sender: TObject);
var
i : integer;
s : string;
begin
tb := 1;
i := 1;
with database.ADO_KHJB do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM TB_CLIENT_KHJB order by khjb_id');
open;
end;
s := 'KJ'+formatdatetime('yyyymm',now());
if database.ADO_KHJB.RecordCount<1 then
begin
Edit1.Text := s+'00000'+inttostr(i);
end
else
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
database.ADO_KHJB.Last;
i := strtoint(copy(database.ADO_KHJB.fieldbyname('KHJB_id').AsString,9,6));
Edit1.Text := s+formatfloat('000000',i+1);
end;
ToolButton2.Enabled := false;
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
edit2.SetFocus;
end;
procedure TFRM_KHJB.ToolButton2Click(Sender: TObject);
begin
tb := 2;
ToolButton1.Enabled := false;
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
edit2.SetFocus;
end;
procedure TFRM_KHJB.ToolButton3Click(Sender: TObject);
begin
if (database.ADO_KHJB.FieldByName('khjb_id').AsString = '') then
begin
showmessage('無法刪除，客戶級別表已經為空。');
end
else
begin
if application.MessageBox('真的要刪除該條記錄嗎？','提示',mb_yesno) = idyes then
begin
database.ADO_KHJB.Delete;
database.ADO_KHJB.First;
edit1.Text := database.ADO_KHJB.fieldbyname('khjb_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('khjb_bz').AsString;
end;
end;
end;
procedure TFRM_KHJB.ToolButton4Click(Sender: TObject);
begin
try
if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '') then
begin
showmessage('客戶級別編號、級別名稱和'+#13+'該級別每月的最低業務量不能為空。');
end
else
begin
if tb = 1 then
database.ADO_KHJB.Append;
if tb = 2 then
database.ADO_KHJB.Edit;
database.ADO_KHJB.fieldbyname('khjb_id').AsString := edit1.Text;
database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString := edit2.Text;
database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString := edit3.Text;
database.ADO_KHJB.fieldbyname('khjb_bz').AsString := edit4.Text;
database.ADO_KHJB.Post;
with database.ADO_KHJB do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM TB_CLIENT_KHJB');
open;
end;
end;
database.ADO_KHJB.First;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
ToolButton1.Enabled := true;
ToolButton2.Enabled := true;
ToolButton4.Enabled := false;
ToolButton5.Enabled := false;
tb := 0;
except
showmessage('客戶級別名稱不能重復。');
FRM_KHJB.ToolButton5Click(Sender);
end;
end;
procedure TFRM_KHJB.ToolButton5Click(Sender: TObject);
begin
database.ADO_KHJB.Cancel;
with database.ADO_KHJB do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM TB_CLIENT_KHJB');
open;
end;
database.ADO_KHJB.First;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_JBmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
ToolButton1.Enabled := true;
ToolButton2.Enabled := true;
ToolButton4.Enabled := false;
ToolButton5.Enabled := false;
end;
procedure TFRM_KHJB.ToolButton8Click(Sender: TObject);
begin
database.ADO_KHJB.First;
ToolButton8.Enabled := false;
ToolButton9.Enabled := false;
ToolButton10.Enabled := true;
ToolButton11.Enabled := true;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
end;
procedure TFRM_KHJB.ToolButton9Click(Sender: TObject);
begin
database.ADO_KHJB.Prior;
if not database.ADO_KHJB.Bof then
begin
ToolButton8.Enabled := true;
ToolButton9.Enabled := true;
ToolButton10.Enabled := true;
ToolButton11.Enabled := true;
end
else
begin
ToolButton8.Enabled := false;
ToolButton9.Enabled := false;
ToolButton10.Enabled := true;
ToolButton11.Enabled := true;
end;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
end;
procedure TFRM_KHJB.ToolButton10Click(Sender: TObject);
begin
database.ADO_KHJB.Next;
if not database.ADO_KHJB.Eof then
begin
ToolButton8.Enabled := true;
ToolButton9.Enabled := true;
ToolButton10.Enabled := true;
ToolButton11.Enabled := true;
end
else
begin
ToolButton8.Enabled := true;
ToolButton9.Enabled := true;
ToolButton10.Enabled := false;
ToolButton11.Enabled := false;
end;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
end;
procedure TFRM_KHJB.ToolButton11Click(Sender: TObject);
begin
database.ADO_KHJB.Last;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
ToolButton8.Enabled := true;
ToolButton9.Enabled := true;
ToolButton10.Enabled := false;
ToolButton11.Enabled := false;
end;
procedure TFRM_KHJB.FormShow(Sender: TObject);
var
ini : Tinifile;
ssp : string;
begin
ssp := '客戶級別設置';
ini:=Tinifile.Create('c:\cc.ini');
ini.WriteString('one',datetimetostr(now),ssp);
ini.Free;
with database.ADO_KHJB do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM TB_CLIENT_KHJB order by khjb_id');
open;
end;
if database.ADO_KHJB.RecordCount>0 then
begin
database.ADO_KHJB.First;
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
end
else
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;
end;
procedure TFRM_KHJB.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
end;
procedure TFRM_KHJB.ToolButton13Click(Sender: TObject);
begin
close;
end;
procedure TFRM_KHJB.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['a'..'z','A'..'Z']) then
key := #0;
end;
procedure TFRM_KHJB.ToolButton6Click(Sender: TObject);
begin
ToolButton5.Enabled := true;
application.CreateForm(TFRM_KHJB_CX, FRM_KHJB_CX);
FRM_KHJB_CX.ShowModal;
FRM_KHJB_CX.Free;
end;
procedure TFRM_KHJB.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_return)and(edit2.Text <> '') then
edit3.SetFocus;
end;
procedure TFRM_KHJB.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_return)and(edit3.Text <> '') then
edit4.SetFocus;
end;
procedure TFRM_KHJB.FormCreate(Sender: TObject);
begin
database.ADO_KHJB.Active := false;
database.ADO_KHJB.Active := true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -