【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了InGoodsUnit.pas提供大家参考,希望对大家有所帮助!
unit InGoodsUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, Buttons, DBCtrls, ExtCtrls,
DB, Menus, Mask;
type
TInGoodsForm = class(TForm)
DataSource1: TDataSource;
pnlClient: TPanel;
Label2: TLabel;
Panel2: TPanel;
Label24: TLabel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel3: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label25: TLabel;
Edit1: TEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox4: TComboBox;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
ComboBox5: TComboBox;
Edit11: TEdit;
Memo1: TMemo;
ListBox1: TListBox;
ComboBox6: TComboBox;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
PopupMenu1: TPopupMenu;
GOTO1: TMenuItem;
N2: TMenuItem;
N1: TMenuItem;
Enddate: TEdit;
ComboBox3: TComboBox;
TabSheet3: TTabSheet;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBEdit1: TDBEdit;
procedure BitBtn6Click(Sender: TObject);
procedure GOTO1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2DropDown(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox4DropDown(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure ComboBox5DropDown(Sender: TObject);
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure ComboBox6DropDown(Sender: TObject);
procedure ComboBox6Exit(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormShow(Sender: TObject);
procedure ComboBox3DropDown(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure ComboBox2Exit(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
private
{ Private declarations }
procedure GoToPos(const p: integer); //定义一个过程,记录指向特定的位置
procedure Move; // 记录移动
procedure CLS; //清除框体内的数据
procedure ENA; // 新增或者修改记录的时候使所有的控件可用
function GetItem: Integer; //得到编号
procedure DIS; // 使所有的控件不可用
function CanSave: Boolean; // 判断是否可以保存
procedure Posting; // 提交所有的数据
procedure refresh; // 数据刷新
public
{ Public declarations }
end;
var
InGoodsForm: TInGoodsForm;
ActionCD: string;
year, month, day: word;
implementation
uses Main, DMUnit, PublicFunction, SearchDateUnit;
{$R *.dfm}
procedure TInGoodsForm.GoToPos(const p: integer);
//定义一个过程,记录指向特定的位置
begin
with dm.InGoodsList do
begin
close; // 关闭存储过程
Prepared := False;
Parameters.ParamByName('@code').value := 'P';
//为搜寻代码code,执行的语句为当code=p时候
Parameters.parambyname('@ckyear').value := year;
Parameters.ParamByName('@item').value := p;
Prepared := True;
open;
if RecordCount > 0 then
Move
else
Refresh;
end;
end;
procedure TInGoodsForm.Move;
begin
if (DataSource1.DataSet.RecordCount > 0) then
with DataSource1.DataSet do
begin
edit1.Text := inttostr(FieldByname('item').asinteger);
datetimepicker1.Date := FieldByname('rec_date').AsDateTime;
datetimepicker2.Date := FieldByname('ckdate').AsDateTime;
datetimepicker3.Date := FieldByname('rpdate').AsDateTime;
edit2.text := IntToStr(FieldByname('daysiniqc').AsInteger);
edit3.text := FieldByname('rpno').AsString;
combobox1.Text := FieldByname('customer').AsString;
combobox2.Text := FieldByname('vendor').AsString;
combobox3.Text := FieldByname('source').AsString;
combobox4.Text := FieldByname('model').AsString;
edit4.Text := FieldByname('custpn').AsString;
combobox6.Text := FieldByname('type').AsString;
edit5.Text := FieldByname('description').AsString;
edit6.Text := FieldByname('bom').asstring;
edit7.text := FieldByname('actual').AsString;
edit8.text := FloatToStr(fieldbyname('rec_qty').AsFloat);
edit9.text := FloatToStr(fieldbyname('insp_qty').AsFloat);
edit10.text := FloatToStr(fieldbyname('rej_qty').AsFloat);
combobox5.Text := FieldByname('status').AsString;
edit11.text := FieldByname('disposition').AsString;
Memo1.Text := FieldByname('remarks').AsString;
end;
end;
procedure TInGoodsForm.CLS;
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin // 清除所有的TEdit控件的内容
if (Components[i] is TEDIT) then
TEDIT(components[i]).Clear;
end;
for i := ComponentCount - 1 downto 0 do
begin // 清除所有的TComboBox控件的内容
if (Components[i] is TComboBox) then
TCombobox(components[i]).Clear;
end;
Memo1.Clear; //清除Memo1里面的内容
DecodeDate(now, year, month, day);
EndDate.Text := IntToStr(year) + '年' + IntToStr(month) + '月' + IntToStr(day)
+ '日';
end;
procedure TInGoodsForm.ENA; // 新增记录的时候使所有的控件可用
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin
if (components[i] is TEdit) then
begin // 使所有的TEdit控件可用
TEdit(components[i]).Color := clwindow;
TEdit(components[i]).ReadOnly := false;
end; // 使所有的Tcombobox控件可用
if (components[i] is Tcombobox) or (components[i] is Tdatetimepicker) then
TEdit(components[i]).Color := clwindow;
end;
memo1.Color := clwindow;
enddate.color := $00CFCFCF;
memo1.ReadOnly := False; // TMemo控件可用
BitBtn1.Enabled := Fa
上一篇:
InGoodsQryUnit.pas
下一篇:
法律专业开题报告范文