📄 umain.~pas
字号:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzGroupBar, ExtCtrls, RzPanel, RzSplit, RzButton, ImgList, Menus,
RzCommon, RzStatus, RzTabs, RzBHints, ActnList, RzForms, RzTray ,
Grids, DBGrids, RzDBGrid, RzDBNav, RzGrids, StdCtrls, RzLabel, Mask,
RzEdit, RzLstBox,Inifiles, DB, ADODB, Ora,RzDBList, RzDBEdit, RzDBBnEd,
DBAccess, MemDS, OraSmart, RzCmboBx, RzDBCmbo, RzDBLbl, RzBtnEdt,
RzDBLook, RzRadChk, OraPackage;
type
TwMain = class(TForm)
RzSizePanelMain: TRzSizePanel;
RzGroupBarMain: TRzGroupBar;
RzGroupParm: TRzGroup;
RzGroupYw: TRzGroup;
RzToolbar1: TRzToolbar;
RzStatusBar1: TRzStatusBar;
btnExit: TRzToolButton;
ilMain: TImageList;
mmMain: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
RzMenuController1: TRzMenuController;
rzstspnInfo: TRzStatusPane;
RzClockStatus1: TRzClockStatus;
RzSpacer1: TRzSpacer;
rzblnhnts1: TRzBalloonHints;
btn2: TRzToolButton;
rzpgcntrl1: TRzPageControl;
rztbsht1: TRzTabSheet;
actlst1: TActionList;
actParmExc: TAction;
actCntExc: TAction;
actContExc: TAction;
actSgclExc: TAction;
RzGroupController1: TRzGroupController;
rzfrmst1: TRzFormState;
rzrgnfl1: TRzRegIniFile;
RzTrayIcon1: TRzTrayIcon;
rztbsht2: TRzTabSheet;
rztbsht3: TRzTabSheet;
rztbsht4: TRzTabSheet;
actExit: TAction;
RzToolbar3: TRzToolbar;
RzToolbar5: TRzToolbar;
RzToolbar2: TRzToolbar;
btnGet: TRzToolButton;
RzSpacer2: TRzSpacer;
btnNew: TRzToolButton;
btnDel: TRzToolButton;
btnModify: TRzToolButton;
btnSave: TRzToolButton;
RzDBGrid1: TRzDBGrid;
RzPanel1: TRzPanel;
RzLabel7: TRzLabel;
RzEditName: TRzEdit;
RzLabel8: TRzLabel;
RzEditAlias: TRzEdit;
RzLabel9: TRzLabel;
RzEditIp: TRzEdit;
RzLabel10: TRzLabel;
RzEditUser: TRzEdit;
RzLabel11: TRzLabel;
RzEditPass: TRzEdit;
RzLabel12: TRzLabel;
RzEditPort: TRzEdit;
ds1: TDataSource;
tbl1: TADOTable;
tbl1dbid: TAutoIncField;
tbl1dbname: TWideStringField;
tbl1dbalias: TWideStringField;
tbl1dbuser: TWideStringField;
tbl1dbpass: TWideStringField;
tbl1dbip: TWideStringField;
tbl1dbport: TWideStringField;
btnGet2: TRzToolButton;
RzDBGrid2: TRzDBGrid;
btnConnect: TRzToolButton;
RzPanel2: TRzPanel;
RzDBGrid3: TRzDBGrid;
RzToolbar4: TRzToolbar;
btn1: TRzToolButton;
RzSpacer3: TRzSpacer;
btn3: TRzToolButton;
btn4: TRzToolButton;
btn5: TRzToolButton;
btn6: TRzToolButton;
RzLabel1: TRzLabel;
RzLabel2: TRzLabel;
ortbl1: TOraTable;
ds2: TOraDataSource;
ortbl1SUPID: TStringField;
ortbl1MFID: TStringField;
ortbl1CONTID: TStringField;
ortbl1WMID: TStringField;
ortbl1TYPE: TStringField;
ortbl1JE: TFloatField;
ortbl1BL: TFloatField;
RzLabel3: TRzLabel;
RzLabel4: TRzLabel;
RzLabel5: TRzLabel;
RzLabelGys: TRzLabel;
RzLabel6: TRzLabel;
RzLabel13: TRzLabel;
btn7: TRzToolButton;
btnCancel: TRzToolButton;
RzEditSupid: TRzEdit;
RzEditWmid: TRzEdit;
RzEditMfid: TRzEdit;
RzNumericEditJe: TRzNumericEdit;
RzNumericEditBl: TRzNumericEdit;
RzRadioButtonJe: TRzRadioButton;
RzRadioButtonBl: TRzRadioButton;
cbbContid: TRzComboBox;
btn8: TRzToolButton;
OraStoredProc1: TOraStoredProc;
RzSpacer4: TRzSpacer;
btn9: TRzToolButton;
RzGroupBox1: TRzGroupBox;
RzEditFindGys: TRzEdit;
RzEditContId: TRzEdit;
lbl1: TLabel;
lbl2: TLabel;
RzLabelGz: TRzLabel;
RzDBGrid4: TRzDBGrid;
RzPanel3: TRzPanel;
RzLabel17: TRzLabel;
RzEdit1: TRzEdit;
RzLabel18: TRzLabel;
edtKsrq: TRzDateTimeEdit;
RzLabel19: TRzLabel;
edtJsrq: TRzDateTimeEdit;
ds3: TOraDataSource;
orqryRecord: TOraQuery;
orqryRecordRQ: TDateTimeField;
orqryRecordMEMO: TStringField;
ortbl1ROWID: TStringField;
ortbl1SUPNAME: TStringField;
procedure actParmExcExecute(Sender: TObject);
procedure actCntExcExecute(Sender: TObject);
procedure actContExcExecute(Sender: TObject);
procedure actSgclExcExecute(Sender: TObject);
procedure actExitExecute(Sender: TObject);
procedure btnGetClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RzListBox1Click(Sender: TObject);
procedure btnNewClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure btnModifyClick(Sender: TObject);
procedure btnConnectClick(Sender: TObject);
procedure btnExitMouseEnter(Sender: TObject);
procedure btnExitMouseLeave(Sender: TObject);
procedure btn2MouseEnter(Sender: TObject);
procedure rzpgcntrl1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure edtBLChange(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure ortbl1TYPEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ortbl1TYPESetText(Sender: TField; const Text: String);
procedure cbbTYPEChange(Sender: TObject);
procedure RzRadioButtonJeClick(Sender: TObject);
procedure RzRadioButtonBlClick(Sender: TObject);
procedure ortbl1WMIDGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ortbl1WMIDSetText(Sender: TField; const Text: String);
procedure RzEditSupidKeyPress(Sender: TObject; var Key: Char);
procedure RzEditNameKeyPress(Sender: TObject; var Key: Char);
procedure RzEditAliasKeyPress(Sender: TObject; var Key: Char);
procedure RzEditIpKeyPress(Sender: TObject; var Key: Char);
procedure RzEditUserKeyPress(Sender: TObject; var Key: Char);
procedure RzEditPassKeyPress(Sender: TObject; var Key: Char);
procedure RzEditPortKeyPress(Sender: TObject; var Key: Char);
procedure cbbContidKeyPress(Sender: TObject; var Key: Char);
procedure RzNumericEditBlKeyPress(Sender: TObject; var Key: Char);
procedure RzNumericEditJeKeyPress(Sender: TObject; var Key: Char);
procedure btn8Click(Sender: TObject);
procedure tbl1AfterOpen(DataSet: TDataSet);
procedure ortbl1AfterOpen(DataSet: TDataSet);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btn9Click(Sender: TObject);
procedure RzEditMfidKeyPress(Sender: TObject; var Key: Char);
procedure cbbContidExit(Sender: TObject);
private
function SaveList:Boolean;
public
{ Public declarations }
end;
var
wMain: TwMain;
iOper: string='S';//'I':插入；'D':删除；'M':修改 ;'S':保存
iOperOra: string='S';//'I':插入；'D':删除；'M':修改 ;'S':保存
implementation
uses
uDm,uDefine,uDefinDb,uSysFunc,uDbFuncPub;
{$R *.dfm}
function TwMain.SaveList:Boolean;
begin
if RzEditMfid.Text='' then
begin
if RzEditSupid.Text='' then
begin
WarningMsgBox('供应商，不能为空！');
RzEditSupid.SetFocus;
Result:=False;
exit;
end;
if cbbContid.Text='' then
begin
WarningMsgBox('合同，不能为空！');
cbbContid.SetFocus;
Result:=False;
exit;
end;
if RzEditWmid.Text='' then
begin
WarningMsgBox('经营方式不能为空！选择合同后回车！');
cbbContid.SetFocus;
Result:=False;
exit;
end;
end;
if (iOperOra='I') or (iOperOra='M') then
with ortbl1 do
begin
edit;
try
ortbl1.FieldByName('SUPID').AsString:=RzEditSupid.Text;
ortbl1.FieldByName('SUPNAME').AsString:=RzLabelGys.Caption;
ortbl1.FieldByName('CONTID').AsString:=cbbContid.Text;
if RzRadioButtonJe.Checked then
ortbl1.FieldByName('TYPE').AsString:='1'
else
ortbl1.FieldByName('TYPE').AsString:='2';
ortbl1.FieldByName('WMID').AsString:=RzEditWmid.Text;
ortbl1.FieldByName('MFID').AsString:=RzEditMfid.Text;
ortbl1.FieldByName('je').AsFloat:=StrToFloat(RzNumericEditJe.Text);
ortbl1.FieldByName('bl').AsFloat:=StrToFloat(RzNumericEditBl.Text);
Post;
DmEl.orsn1.Commit;
except
Cancel;
DmEl.orsn1.Rollback;
Result:=False;
Exit;
end;
end;
if iOperOra='D' then
begin
try
DmEl.orsn1.Commit;
except
DmEl.orsn1.Rollback;
Result:=False;
Exit;
end;
end;
Result:=True;
end;
procedure TwMain.actParmExcExecute(Sender: TObject);
//参数设置
begin
rzpgcntrl1.ActivePageIndex := 0;
end;
procedure TwMain.actCntExcExecute(Sender: TObject);
//连接设置
begin
rzpgcntrl1.ActivePageIndex := 1;
end;
procedure TwMain.actContExcExecute(Sender: TObject);
//合同设置
begin
if gConnect<>'Y' then Exit;
rzpgcntrl1.ActivePageIndex := 2;
end;
procedure TwMain.actSgclExcExecute(Sender: TObject);
//手工处理
begin
if gConnect<>'Y' then Exit;
rzpgcntrl1.ActivePageIndex := 3;
end;
procedure TwMain.actExitExecute(Sender: TObject);
begin
close;
end;
procedure TwMain.btnGetClick(Sender: TObject);
var
lIniPath:string;
lTmp:string;
lCont,i:Integer;
begin
tbl1.Close;
if DmEl.ado1.Connected then
tbl1.Open;
if not tbl1.Eof then
begin
RzEditName.Text:=tbl1.FieldByName('dbname').AsString;
RzEditAlias.Text:=tbl1.FieldByName('dbalias').AsString;
RzEditUser.Text:=tbl1.FieldByName('dbuser').AsString;
RzEditPass.Text:=tbl1.FieldByName('dbpass').AsString;
RzEditIp.Text:=tbl1.FieldByName('dbip').AsString;
RzEditPort.Text:=tbl1.FieldByName('dbport').AsString;
end;
end;
procedure TwMain.FormCreate(Sender: TObject);
begin
gPath:=GetCurrentDir();
ConnectAdo();
end;
procedure TwMain.RzListBox1Click(Sender: TObject);
var
lIniPath:string;
lTmp,lName:string;
lCont,i:Integer;
begin
// lIniPath:=gPath+'\elTwoAcc.ini';
// lName:=RzListBox1.SelectedItem;
// with TIniFile.Create(lIniPath) do
// try
// RzEditName.Text:=lName;
// RzEditAlias.Text:=ReadString(lName, 'ALIAS', '');
// RzEditUser.Text:=ReadString(lName, 'USER', '');
// RzEditPass.Text:=ReadString(lName, 'PASS', '');
// RzEditIp.Text:=ReadString(lName, 'IP', '');
// RzEditPort.Text:=ReadString(lName, 'PORT', '');
// finally
// Free;
// end;
end;
procedure TwMain.btnNewClick(Sender: TObject);
begin
tbl1.Append;
RzEditName.Text:='';
RzEditAlias.Text:='';
RzEditUser.Text:='';
RzEditPass.Text:='';
RzEditIp.Text:='';
RzEditPort.Text:='1521';
RzEditName.SetFocus;
iOper:='I';
end;
procedure TwMain.btnDelClick(Sender: TObject);
var
lIniPath:string;
lTmp,lName:string;
lCont,i:Integer;
begin
DmEl.ado1.BeginTrans;
tbl1.Delete;
iOper:='D';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -